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cH GAMES For your zxe1 ttt Tttth 
Introduction. 


Your computer is waiting to challenge you. Moving 
graphics games, brain stretchers, word games and 
puzzles are all here and ready to entertain you. 

A wide variety of games are included in this book. The 
programs have been written by some of the most 
talented young programmers working in this country at 
the moment, and represent a variety of approaches to 
solving programming problems. 

An examination of the listings should teach you many 
tricks and techniques to apply to your own programm- 
ing. And once you have mastered the programs in their 
present form, you might want to try your hand at improv- 
ing them. There isno such thing asa ‘perfect program’, so 
these games are sure to benefit from your programming 
skill. 

All that now remains is for you to turn the page and 
enter the programs. I can only hope that you enjoy play- 
ing the games as much as we did when preparing this 
volume. 


Tim Hartnell, series editor 
London 
March 1983 
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CITY 


This challenging program is Paul Toland’s version of the 
game in which a plane is descending ona large city, and 
must bomb away the skyscrapers in order to land. The 
program as listed is extremely hard (almost impossible!) 
to play, but it can be made slightly easier by changing the 
12 in line 30 toa smaller number, suchas 8. This changes 
the height of the skyscrapers. If you'd prefer to be flying 
over a village rather than a city, try 10 FOR 1=8 TO 25. 

The city is different each time, and is generated at ran- 
dom. You fire your bomb by hitting any key except 
BREAK. When you have crashed (that is, finished) press 
any key except ‘N’ for a new game. To have a program 
which autostarts when loaded, save it by entering GOTO 
340, 


2 at "CIty" PAUL TOLAND. 


NO 
1@ FOR I=1 o1 
2@ LET Ge=CHRS (RND #10+125) 
3@ FOR J=21 TO B1-INT (RND#12) 


STEP -2 
4@ PRINT AT J.I;CS$ 
NEXT J 
6@ NEAT I 


7@ LET B=@ 
9@ LET PL=1 


95 LET P=PEEK 16396+256sPEEK 1 
6Sor¢1 

QO7 LET PL=P3+1 

180 POKE PL,@ 

11@ LET N=PEEK a 

12@ IF N=@ THEN GOTO 158 

13@ IF N<>118 Ten GoTo 25e@ 

14@ LET PL=PL+1 

15@ LET PL=PL+1 

16@ POKE PL,1i3@ 

2165 IF PL=P+724 THEN GOTO 288 

23708 IF INKEYS>"" AND B=08 THEN L 
ET =PL 

2360 IF B=@ THEN GOTO 248 


12@ POKE 6B, 
2@@ LET B8=68+33 
218 LET O=6 





ae env HEE 


220 IF PEEK B>8 OR 5>P+724 THEN 
LET 8=0 
225 POKE D,26 

LET I=i 


252 LET T=1##1 


259 POKE PL,23 
26@ PRINT AT 1@,1@; "YOu CRASHED 


27@ GOTO 298 

260 PRINT_AT 10,10; "YOU""'R DOWN 
IN ONE PIECE- 
299 PRINT ,"TRY AGAIN 7" 
3@Q@ IF INKEYS="" THEN GOTO 3eae@ 
310 IF INKEY$="N" THEN STOP 
32e@ CLS 


RUN 
34@ SAVE "CIT" 
RUN 


aaa 
sa 
amma 
aaa 
= 
oe 
| 

















This is a 1K moving graphics game written by Dilwyn 
Jones. You are the + sign wandering about the screen 
under the control of the ‘5’ (left), ‘6’ (down), ‘7’ (up) and ‘8’ 
(right) keys. You are awarded a point every time you 
move. The computer attempts to trap you by placing a 
blob nextto you. The game is over when you are forced to 
move onto a blob. Your score is shown at the end. 





10 RAND 
2@ LET A=@ 
3a PRINT oe 14 iecis 






mar 22° = oh : 

S@ PRINT a STAB 12; "Hi" 

6a ee 

7@ LET “ant (RND#123 412 

6@ LET SSINT CRND#11) 43 

9@ PRINT AT Y.xX; 

10@ IF PEEK (PEEK 16398+256#PEE 
K 16399) =125 THEN GOTO 198 

41@ PRINT “+", AT Y+iIRND<. 52 - (RN 
D<,.5) OX IRND 2.5) -(RND<. 5) AN 
h® PEEK (PEEK 16398+2S56s2PEEK 1632 
9} <>ai 

188 LET BS? fixevs 
440 IF Aste: OR AS O'S" THEN GO 

is@ 


TO 
1 PRINT AT ¥Y-X%S0 " 1 xe 
160 LET X=X+(Ag="S") -(As="5") 
170 LET YeY+iAs="6") -CAga"?") 


19@ PRINT A 








TANK ASSAULT 


Inthis game, written for the 16K ZX81 by Nick Wilson, you 
have to drive a ‘tank’ from the bottom of the screen to the 
top, avoiding the black squares. These are bombs prim- 
ed to blow you up. When you RUN the game, you willsee 
the Assault Course printed on the screen, inside an ex- 
plosive fence. 

The tank (an inverse asterisk) will move up from the 
start of the game, and you have to steer it right (with the 
zero key) or left (with the one key). There are some 60 
bombs in the game as listed, but you can easily change 
this by altering the 65 in line 75 to the number of your 
choice, with lower numbers making the game easier. 

At the end, when you reach the top of the screen, you 
will be given a ‘Tank Commando’ rating. You'll find ita 
pretty fast-moving game and you may wish to slow it 
down the first few times you play it by adding 107 LET 
G=SIN PI. The graphics character in line 30 is from the H 
key. 

Lines 12 to 85 print out the course and border; 100 to 170 
move the tank up and to the left or right; 150 and 160 read 
the keyboard and move the tank; 200 to 230 create an ex- 
plosion when the tank crashes, and lines 245 to 360 end 
the game and give you your rating. 
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EEE — maw tencues EEE 


20,000 
LEAGUES 
BELOW THE 
SEA 


One problem with the ZX8] is that the graphics are rather 
slow when programs are written in BASIC, so that 
animated games become difficult to program. Space In- 
vaders, for example, loses some of its interest if the in- 
vaders move only once every ten seconds or so. 

If you are staying in BASIC, and not resorting to 
machine code, the only way to ensure graphics move ata 
realistic pace is to keep the program as short as possible 
and move as few things around the screen as possible. 
This is what Neil Streeter has done in this program. The 
only things that move are the diving bell and the octopus, 
each represented by a single character, which speeds 
up the printing. 

The main movement subroutine is between lines 170 
and 290 and contains as little as possible (the tests for a 
key being pressed, or a treasure chest, or an octopus). 
Even the score is left until the end of the game, as are all 
messages. If you try and keep any movement 
subroutines as short as possible, and as close to the 
beginning of the program as you can, then you should 
find that a fairly acceptable speed of play can be achiev- 
ed, as this program shows. The characters in line 80 are 
graphics 8, graphics 3, three inverse ‘'’’, graphics 4, 
eleven -, graphics 2, inverse space, two inverse ‘'.”’, A, 
three inverse ‘'."’, and 13- to finish. 
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3@ PRINT “CRUGHT BY THE GIANT 


TOPUST 
32 FR ay ».s “ENTER LEVEL OF DIF 
FICULTY 1-4) ","1=HARD 2 AND O= 
MEO IUN 4 =ERSY a 
Sea INPUT LEOD 
O33 IF INT LEQD< pEEOe oR LEQO 
QR LEOQG<1 THEN GoTa ve 


4@ PRINT ,,"USE KEYS S To 3 Ta 
STEER THE", “DIUING BELL”,,,,“°PRR 
ESS KEY "“"6e* TO STAR 

S@ PRINT " ea 


6e@ IF eNREY $="" THEN GOTO oe 
F@ CLS 

4 LET COUNT =e 

7S LET TEST=8 


mee? RINT TAB 15,05 as 19; «a 
SS LeYT of ="R" 
38 LET Sea 

2@@ Ler y= 

11 PRINT. Pr aet 8 








"tee PRINT AT Be, 
TAB 2S; "hy 
"438 LET Ox = INT tRND#322 

1408 LET QY=INT (RND#1838: 

158 PRINT ATF oY,.ae; "Oa" 

168 LET TS=8 

16S LET sc=e8 

1¥@ LET X1l=x 

1S8@ LET Yis=¥ : 
19@ LET X=X+t(INREYS="8" ANO Xi 
1) -CUINREYS="S" AND X>82 

BOQ LEF Y=¥+tInNKEyYSs="6" AND ¥iz2B 
@)-CINKEYS="F" AND Yo2) 

28S LET COUNT =CQUNT?2 









2i@ PRINT AT_Y1.X%1;" “JAY Yo: 
212 IF — *2 THEN LET YTESrF=2 
S2as tf «€=15 RAND Y= AND TEST: 8 


coer GOSUEB 1sSee 
228 LET CH=PEER (PEER BHRRRSS 


16399) 
BEEK ro THEN GOSU Leee 
26 PRINT O8 
350 LET bod Zax 
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HEE HE 20,000 EaGuEs ETH 


2@d4@ LET OY1=0¥ 

Sree — OR=ORF+ (% 2OM) VLEQH—-UKLOK 
i’ 

) ZLEOB ane OY HOY + OY 2ON) -LEQHR- ty voy 


INT OQ*=*% AND INT OY=¥Y TH 
EN” Boro oeaee 
255 IF OY>208 THEN LET oOy=228 
2656 IF OY <3 _ THEN LET ey=2 
aol eaaee AT OY1,OX2; "; RT oy, 


298 GOTO 178 

18ee@ IF CH. >31S7 AND CH. 258 AND 
CH<> 159 THEN GOTQA B2eee 

1Q0@5S IF Os<>"R" THEN GOTO RreaR 
L810 LET OS =CHRS H 

LBe2eea LET TS=Cape os-156 

LOSS RETURN 

35@@ LET SC=SC+TS#28728 

2151218 LET oOs="R" 

1518S Ler TesT=e 

1S2ea oF SC=120@ THEN Gore sone 
1S3@ PRINT AT OY,0OX%;" “"; AT 2,35 
1540 LET Qx=INT TRND #32} 

158508 LET Snare TRNOX#1LE+9} 

1560 RETUR 

Beea CLS 

3SeBaS IF CHri28 THEN FRINT “you #H 
AVE CRASHED THE PIVING BELLINTO”™ 
a" THE SHIF." AND CH< 2 BER; " ANQT 
HER CHEST." AND CH=aa9 

Seie IF SC = Lee THEN PRINY “Stuicce 


3015 IF INT OX=x AND INT Oy=y TH 

EN PRINT “CAUGHT... 

Se ob ee oHecobe §L5 THEN PRINT.” 
YOU HRVE SURFACED THE OTVING", "“ 
ELL. YOU WILL HAVE FO WRIT FO B 
= RESCUED." z 

Basa PRINT “Yau StCaQReLe Jp ataeLreoag 
+t1@@-COUNT? ; “ POINTS. ° if 
3@4@ PRINT ,, "AND USED ">; COUNT; 
UNITS OF", “OXYGEN...." i 

3@50 PRINT .,"ANOTHER GAME? ty oO 

R } at 

S@6Q LET KS=INKEYS 









NZ 


3070 IF KS="" THEN GoTo ae6e 
Sasa IF KS="¥" THEN CLS 

S888 iF RSoc¥" THEN RUN 

3a95 Sroap 

Si8@ LET CH=999 

31l1ia8 GoTo 3aae 











UBER TAE S°TRERSUBE “CRESTS 
NTHE "SER BED, WITHOUT GEING 
SHT BY THE GIANT ocTaPpus? 

t2-a} 


= 
c 

ENTER oe OF OC eneon 
L=HAR 2 AND S=MNECTIUM =EaRSY 







noe 
AUG 


29 
evo goe.. 
Peco o. 
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THE ZX81 
FIGHTS BACK 














REVERSI 


This popular board game — often called Othello — has at- 
tracted many computer programmers. Graham 
Charlton is one such programmer. He has written a 
number of Reversi programs, including the core of the 
one given away ona flexidisc with an issue of Your Com- 
puter magazine. 


2 REM REVERST-OTHELLOA 
5 GOSUB 1ees 
7? GOTO 2se 
18 FAST 
5S LET “i 
PO LET ra 
Ta 6a 


2a LET 
48 FOR bai 
5@ LET L ZS(K#3-2) 
L ZS(K#3-12 
B)<>" " THEN GoTa 2 


+ 


WoO AD WL a 


DCCeBI i 


A 
LET iA 
55 IF A ’ 
78 FOR 
Ba FOR 


8S Ler 
o8 LET 


OIMIH KODA TOD 


wwii dni 


G+D2<43BS THEN GOT 


pa 
ty 
o 
" 

IT sw 
Wil 

+ 

m1 


! 


146 §EYT G=G+0 

458 GoTa 1168 

4A7@ IF ASTFHC,.G4+DR) <3C$ OR E=8 TF 
HEN GOTO 228 

18@ LET ARTF,.G:=Cs 

498 IF A@=F ANE B=G THEN GOTO 23 
& 

2@@ LET F=F-C 

2ie@ LET G=6-PD 

#215 LET H=l 

228 GOTO i188 

232 NEXT B 

#248 NEXT © 

256 IF 8$="C" OR H=i THEN GOTO 


26G@ NEXT K 
262 SBL0u 
S265 PRINT AT 22.3; "5 CANNOT HG 
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4 
A 





ql 
4 







SYS FOr F=2 TR 2S 

272 NEXT & 

SYS PRINT SY 22.,3:" 

SG SLOW 

2GS PRINT AT 8.8; 

SOR FOR A=1 TO 12h 

Bie PRINT Ast: 

S48 NEXT A 

G52 EF Bs="C" FHEN GaTao if 

BEG PRINT AF 22,3; “ENTER NUNBES 
POUN SIRE" 

BH2 INPUT A 

GE5 IF AiB GA AS THEN Gara mas 
zeEsS PRINT Ar To Se 

Boe 2 Aza BANG =S2 THEN GoTa 2 
Life 

Baa IF A=8 THEN GoTo if 

37 PRINT AT 12,35; "ENTER NUNBER 
BCROQSS TOR" 

BY2 INPUT 5B 

BFS IF B:8@ OR B23 TREN GOTO Bre 
SFG PRINT AT 32.3:° 





1@18 LET ASt2I= a4sareas" 

l@2O LET ASIP ="f =" 

QS LET ASI(3S)I="3 a 

1a¢d@ LET Ata) ="4 a" 

1@5@ LET AIS} ="S c Ss" 

4860 LET AS(6)="6 c 6" 

L@7G@ LET ARCTI="F ze 

1@8e LET ARTS) ="8 a" 

1298 LET AS (9) ="9_ a. 

2488 LET A$(10) ="Resaseraese 
4482 LET 28="22,29,92,99,94.a7.7 
5.79,42,49,24,27, 74, 77,44,47,75, 
76,46,45,54,67,57,64,25,26,95,96 
,52,59,62,69,34,37,44,87,43,48,7 
4..78,35,36,85,86,53,58,65,.68,35, 
28 ,93,98,32,39,82,89,.33,88,83,36 
3419 RETURN 

24420 PRINT AT 12,3: "END OF THE G 
ANE” 

1125 LET c=e 

1326 LET H=a 

Zis@ FOR A=2 Ta a2 

114@ FOR 8=2 TO 3 
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ace TF AS(R.~B =O" FHEN LET =f 
1160 IF RSA. B=" THEN LET H=H 
+ 

1i78 NEXT 6 

Li?vsS NEXT R 

3188 FF H2C THEN PRINT .."YOU UE 
RO 

429008 IF HiC THEN PRINT .,"F WIN" 
4200 FF H=C THEN PRINT ..°1iIT3S A 
PRA" 

2218 PRINT .,"I SCQRED ";C 

122360 PRINT .,"YQU SCORED™ “IH 


12308 PRINT .,."DOQ YOU WANT ANOTHE 
R GANE CY «Ni 7?” 

4235 IF INKEYS="" THEN GOTO 1235 
278 IF INKEYS="N" THEN STOP 
4286 CLs 

1208 RUN 








END OF THE GAME 
YOU WIN 
I SCORED 22 





YOU SRORED 44 


GO YOU ANT ANOTHER GANE tY-Ni? 
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STAR-TRADER 


You are speeding through the space lanes, a merchant 
trader plying the galactic markets. You begin your 
journey with a number of goods and some intergalactic 
money, and attempt to return to port with more goods. 
Your cargo will be sold for twice the standard rate when 
you arrive, and you will receive ten per cent of the pro- 
fits. If you don’t want to buy or sell from any particular 
trader, just press ENTER. 

Out there in space you will meet other star-traders on 
their way to different planetary systems and they will of- 
fer to buy and sell goods at cut prices. The aim of the 
game is to stockpile expensive goods, with money just 
the means to that end. Star-Trader was written by Tim 
Rogers. 


1@ LET AS="EX-DICTATORS, VELLIN 
GSTONS.FPRPER GAGS, PLASTIC BRICKS, 


GS,TYRES,ZINC HUB CAPS.GAL. SILT 
CON INK,.SACKS COAL DUST,METAL IN 
GOTS, TEST TUBES,DOOR KNOBS,FISH, 
TY SETS, BRDGES, é-6@a cASS ES,St. 
IPPERS. TIN NAILS, BRICKS ASPIDIST 
RAS LIGHT BULBS, GLOVES, PEN TOPS" 


AST 
2@ DIM Bs(3E,16) 
2S LET F=18e8 
3@ OIM L(3e@} 


LET A=1 
45 GOSUB 125 
5@ FOR Coe TO LEN AS 
7@ IF AS(B)="," THEN GOSUB F 
8@ LET CS=CH+HS IB) 
oe NEXT 6 


11@ LET (A) =LEN CS 
135 LET =At+1 
120 eer B=B+1 
125 LET Cee 





Cc 
138 TE ae se THEN RETURN 
135 IF F=18@ THEN GOTO 238 


al 





HHH, GAMES For your zxex HHH tp 


140 LET _AS="28.29,.1,.5,58, 12882 
2G, 28, 5-1. 1-5, 4a, 45,4,5,608,2. 
§,5.6,400,1; (3,78, gtgF EPO 75 
i5a bin Btaes- 


16@ LET F=18e 

17@ GOTO 406 

188 LET BtA> =VAL CF 

19@ GOTO 115 

2@@ LET N=INT (M#18Q) -10a8 

2@Q@2 IF MS<>STRS PP THEN LET M$= 
STRS M 

205 IF LEN bau THEN | Bore 22e 
21i@ IF MS(LEN M$-1)= THEN LE 


230 CIM ASG 
24@ LET IR=INT (RND#128@00@) +1 
2S@ LET M=IA 
260 FOR B=1 TO 3@ 
270 IF RND>.&85 THEN LET ACB) =IN 
Te {BND 2180@0) 43 

IF ACB) >8 THEN LET IA=IR+BS 


290 NEX 
See Let y=22100+INT (RND #3000) 
365 Behe 


340 CLS 

358 PRINT TAB 12; "YEAR ";¥ 

BSS LET P=3 

360 PRINT “SSE FFX EESHHEEHHEXHHE 
Whe eae ne se 





PRI 
38@ FOR B N Ms 
39@ PRINT CHR {CODE M(B) +128) 


4 

4@0@ NEXT 6B 

4@5 PRINT 

44@ FOR B=1 Ta 3a 

420 IF A(B}=6@ THEN GOTO 440 
425 PRINT ACB); TAB 6:68 (B) 
43@ LET P=P?+i1 

435 IF P>=16 THEN SCROLL 

440 NEXT B 

45@ LET S$=“SELL" 

460 GOSUB 1668 

470 FOR P=1 TQ NT 

475 IF RND<.47 THEN GOTO 93e8a@ 
430 PRINT AT (P-1)3 45.98; "TRADER 


49@ PRINT “ WISHES TG ":S& 


S@@ LET IT=INT (RND#3G61 +4 
Sl@ LET PP=INT (RND#166) +1 


22 








EEE sean-rnawen SU 


S2e@ LET NA=INT (RND10@@) +1 

538 LET XA=INT (RND#106@08) +NA 

S¢4@ LET PP=PP71@@25 CIT} 

55@ LET PP=INT (PPs100@) -1e@ 
FS=MS 

S7@ LET MS=STRS PP 

Sse GOQSUB 289 


6@@ LET MS=TS 

670 IF S$="BuUY" THEN GOSUB aoe 
63@ PRINT aoe “;BstiT, Ta IT 
} } 3 ae RT oe i ers Pg; ' ERCH" 


69@ PRINT AT 29, Oe a MANY "; & 
BCIT, TO Leirzis *_ TT 


NT 
7@@ IF S#="BUY" THEN GOSUB_ 1136 
718 PRINT “BUY? (YOU HAVE £”; 


MS 

7b@ INPUT Z% 

72S IF 2$="" THEN GOTO S38 

73@ IF CODE Z&<28S OR CODE 28 237 
THEN GOTO 72e8 

74@ LET 2=VAL 2S 

745 LET 2Z=INT (2+.5 

75@ IF Z2<@® QR Z>xXA THEN GOTQ 7s 


760 LET CS=ZsPP 
765 IF Ss#="BuY" THEN RETURN 
77O IF neers, GOTO 72e 


2ee 
8@O@ LET ACITISsACITI +2 
CLS 


82a NEXT P 

825 GoTo S62 

~“Q3@ EF-Gh="SELC4-THEN: GOFO-O18 
650 GOTS 11565 

86@ IF Ss="BUY" THEN GOTO 1288 
S65 LET S#="Buy" 

S78 GOSUB LeeEe 

88e@ GOTO 478 

9@@ PRINT AT (P-13 45.98; “WHAT Dt 
YOu WANT TO 

910 IF See BUY" THEN PRINT “SEL. 


920 TF S8="SELL" THEM PRINT "St 


938 PRINT "TRADER “:P "7" 

e408 enee Zz 

945 IF Zs="" THEN GOTO 838 

a5@ LET L2=LEN 25 

Q95S IF L2<2 THEN GoOoTa 34a 

96@ FOR L=1 TO 38 

mae ee a Be(L., TO t2)=+2% THEN GOT 


i15e@ 
98@ PRINT “MH..": 
23 


Ba0 
B) #2 
i25e8@ 


i260 
12a7a 








1@ 
LET NT=INT_ (RND*¥ 
PRINT AT 19, Bo THERE ARE "; 
TRADERS UWISHING TO" 
PRINT S8:"° SOME GOODS "; 
IF S$="SELL“ THEN PRINT* “TO 


IF Ss="BUY" THEN PRINT “FRO 


PRINT “ You" 
PRINT AT 21.18. “lig 


PAUSE 464 

POKE 16437 ,255 

CLS 

RETURN 

PRINT NAS" TO "3; 

RETURN 

PRINT “SELL? (YOU HAVE "; 
3° “;BH(IT, TO LCItTyy3 "2" 
Gasue 720 

IF Z<cNA OR ACLIT) <Z THEN GOS 


LET pees Sees 

LET M=M+ 

GOSUB pan 

CLs 

NEXT P 

NEXT ¥ 

LET FR= 

FOR B=1 "ro 

PRINT AT a4 Te; “You HAVE Ar 
IF A(B)>@ THEN LET FA=FA+BC 
PRINT AY 11,10;" 


NEXT 6B 
CLs 











4268@ PRINT, 
* WORTH 
1299 PRINT 
RD" 


ee cee 


‘; FA; WOR 
1310 PRINT 
BQRRD" 


J ¥OQuU LEFT WITH £°; IR; 
“SARGO AND MONEY ABOR 
22° ¥OU HAVE NOW GOT ©£ 
“OF GOODS AND MONEY F& 


13208 LET Se ens rf 


L338 IF SG 
oss ae 


R=-2 THEN LET Ps="L. 


ee IF SGN PR>-1 THEN LET P= 


ROF 
i850" PRINT 


$.° OF EB"; 


22 “YOU HAVE MADE A"; 


ABS PR 


4360 IF Ps="PROFIT' THEN PRINT . 


24 








ao. YOU HAVE BEEN PAID £"°; INT (P 
aoe Tee 
1370 IF PS="LOSS5" THEN PRINT 4,4 
ROU HAVE BEEN", “LOCKED UP AND 
WILL NEVER SEE", “THE LIGHT OF Cr 
Y AGAIN -_ LET", “ALONE THE INSIDE 
OF ANOTHER® . “SPACE-SHIP* 


5S 
13898 ao pg="LOsS” THEN NEW 
139@ PRIN 2. "YOUR EMPLOYERS 
AVE OFFERED’ you" , "ANOTHER CONTRA 
CT - ACCEPT?" 
2480 TIF INKEYS<o"Y™ AND INKEYS< > 
“N" THEN GOTQ 1406 
141@ IF INKEYS="N" THEN STOP 

FAST 


1430 GOTO 238 

15e5 TE RND> «4 THEN GOTO 1608 

Q fF Ls THEN LET Z8=Ba(lL, T 

isGe PRINT AT (P-11 45,8; “TRAGER 
BOE ee ae 


1538 LET R= 
1540 IF S$=" SELL” AND R<.5 THEN 


1550 IF S#="SELL" AND R>=.5 THEN 
PRINT “WANT TO"."SELL ANY 
Preaoee S§="BUY" THEN PRINT * WAN 


L57@ PRINT 2% 
ae PRINT AT 21,16; " 


18865 PAUSE 4&4 

459@ POKE 16437.255 
1895 GOTO &6&3e 

160@ PRINT AT_ (P-13 #5.,0; “TRADER 
"SP; " WISHES TO “;S% 
1510 LET IT=L 

162@ GOTO S18 

#2008 POKE 1635399. 76 
2010 SAVE “SLAVES II" 
2020 POKE 16369,126 
#2030 FAST 

#2040 GOTO 236 


aR 
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CH HH GAMES For your zxel ttt Ht 


BATTLESHIPS 


This game, by Nick Wilson, allows you to challenge your 
ZX81 to the game of Battleships, usually played with pen 
and paper. All the normal rules are followed. 

When you run the program the board will be printed, 
and you will be asked to enter the co-ordinates of your 
seven battleships, in row—column, number—letter form. 
The square designated is then checked to see if it is emp- 
ty and, ifso, the program prints your battleship there. The 
computer then sets up its own battleships, storing their 
locations in a string array so that it knows where they are 
... but you do not. 

After this initial procedure the program goes into a cy- 
cle, asking first for moves from you, then the computer, 
then back to you and so on, until all the ships on one side 
are destroyed. Your battleships are shown asasterisks, a 
destroyed ship as an inverse asterisk, an empty square 
that has been fired on as a colon, and an untouched 
square as a full stop. 

The game ends when the ships belonging either to you 
or to the computer are destroyed. The computer usually 
makes its moves very quickly at the start ofthe game, but 
it takes gradually longer as the game progresses and 
fewer vacant squares are left on the board. Itisimportant 
to adhere closely to the program listing, as the screen is 
used as the sole memory for everything except the com- 
puter's ships. The number 7 in lines 250, 330, 401, 460 and 
552 can be made lower, giving less ships, or higher, giv- 
ing more. As listed, an average game takes from 25 to 40 
minutes. 


28 REM BATTLESHIPS 

209 REM SHIP SUBROUTINES 

3@&@ GOTO 18e2 
‘ a. LET N=f{titcope AFl(2}) -BQ +a 
}-L? £= 

is LET YeHift({COQDE AG(a)}} -SSi1+e 
2-323 $= 

6S RETURN 








26 


235 
246 
25S 
2oo 
FOR 
279 
eo 


298 


320 


350 





+ 
oo 
1 
4 
+t 





tN 
REM PRINT BOARD 
PRINT * 
FOR I=35 +0 Sa 
PRINT “ “I CHR (1); 


PRINT 

FOR I=es TO 36 
FRINT CHR €TFS Ms 
FOR J=1 TG 25 


Reads 
PRENT AT 26,9; “SETUP YOUR & 


ATTLE SNIPS. 


FOR K=1 TO 69 

NEXT HK 

FOR I=1 TO ? 

Suse niger? 2@; “CO-ORDINATES 


SHI 

THPUT AS 

te LEN AS$<o2 THEN GOTO 278 
CODE AK{(1) <29 OR CODE AS 


TD V36 oR CODE AS(2) «36 OR CONE 
AR12)>52 THEN GOTO 2708 


GOSUB 4o 

PRINT AT X%.YV; 

GOSUB 7a 

IF T=CODE "£" THEN GOTO 276 
PRINT “#" 

NEXT I 

PRINT AT 206.0; “CHOOSING MY 


BRL ae SITES...* 


bf iM S@(7.a3 
TG. > 


‘LET Ag= =CHRS ‘INT C(RND#3) +29 
LINT (RND £14) +383 


RINT AT X.Y: 
ZF FHCODE “+s THEN GOTS 35a 


FOR H=1 TG wu 
IF J=K THEN GOTO 465 
IF S#iJvi=SHE(KI THEN GOTO 34 


NEAT K 
NEAT J 


al 








459 PRINT AT 2@,.9:;" YOUR GO NU 


448 INPUT AS 

445 IF LEN ASe>S THEN GOTO 44 
450 IF CODE ARi1i} «<2o GR CODE AS 
(2) +36 OR CODE AS(2)<56 GR CODE 
AS(S? +Sa on Soe aaq 

460 FOR I=1 TO 

470 iF As= =Se(2) “THEN GoTo ?7eae 
488 NEXT 

490 GGSUEG Te 

S580 PRINT AT X.¥; 

Sif Gosvs ro 

B2S IF FresCGObpeE “.“* THEN GoTo 44 
wv 


noe. peas ;AYT 28, O; ASf2d 5° ay 
3ABt ae cséED 
Soo. FOR r= D To 50 
36 NEXT I 
540 PRINT AT 20@,.@6;" ty GO ier 


t . as 
550 LET AS=CHR& (INT (URND#5) +29 
) SCHR om tNL, (BNO E24) +38) 
Ses oF AS=S (HD THEN GOTO 55a 
554 NEXT 
SES ROSuB. 49 
S70 PRINT AT XLV; 
566 GOSUB 7e 
59@ IF T=CODE “:" OR T=CODE “Ey" 
THEN GOTO 550 
606 IF T=CGDE “*" THEN GOTO 656 
610 PRINT SAT 20,8;AR123;"°" “* 
7Agta3;* MISSED. 
526 FOR I=3 TO 5@ 
63@ NENT I 
S49 GGTO 425 
SSS PRINT AT X.Y: "E 
S52 PRINT AT 26.0: "5 GOT GONE. 
U Gh HAVE 
S60 LET Says. * 
57@ PRINT YS 
a?s IF YS=@ THEN GOTO 742 
589 FOR I=2 TG 100 
S98 NEXT I 
495 GOTO 425 
Fae GOSUB 42 ; 
7@2 PRINT AT X.7; “E* 
705 PRINT AT 26.8; “vou GOT ONE. 
I NOW HAVE “5 
7iS LET MS=M5-4 
23 PRINT MS 
356 IF MS=08 THEN GOTO 749 


28 


“ 
5 

















cH EAE BATTLESHIPS EEE 

F3a@a GoTa 68a 
F4H FTF ¥S=0 THEN CET We="i" 
F583 LF yYS=0 THEN LET Lg="*YoOuU" 
750 IF MS=G THEN LET Wee"YOuU" 
F770 IF NS=G THEN LET L#="rI" 
FSQ FOR IT=2 TO 26 
Foe SCROLL 
SQ@e MENT IT 
Bio CLS 
B2fe PRINT WS," WIN." 
S30 PRINT 
Ba PRINT ths * LOSE.” 
BS& STOP 

RBcncoeoe BEF BAHTtEYI KUN AN GO 
1 = ny © a . & e . . . 
= a a . a a . 2 e e 2 
3 . . . . ¥ a e e Sd 
cb a a . a a a a a a a 
3 a a a e es y a a a s 
6 a = a . a a a a 
? e e e e e 2 e a 
& ¥ a ‘ an, Ve a = 
YOU GOT ONE. I NOW HAVE 6&6 
we. ~DESTROYED SHIP. 


4 
s 





» RUMAH 


SHIP 


» -SSUARE THAT HAS BEEN FIRED 


» » UNTOUCHED SGUARE 


{THE COMPUTER,S SHIPS ARE 
INUISIBLE GN THE SCREEN} 


2g 








TREASURE 
CHEST NIM 


You and the ZX81 take it in turns to remove treasure 
chests from along line of such chests. Every chest is emp- 
ty except for the last, which contains jewels and gems to 
make you wealthy. The contents of the chest belong to 
the player who manages to take the last chest. 

You can take one, two or three treasure chests away 
from the line, in an attempt to force the clever computer 
into allowing you to take the booty. The computer will 
usually win, though if you concentrate you may wina few 
games. You take away chests by touching the 1, 2 or 3 
keys. 

In this program, written by Dilwyn Jones, the computer 
always keeps you informed of how many it has removed, 
and there is botha numeric anda graphical display ofthe 
state of play. 





Sed a Robt gM 7 APO 
Pe): 


ea St 
a LSS 
ae aR] 


=f Abs 
PY 


















Herth ‘TREASURE CHEST SEE 














18 RAND 
20 PRINT AT 0,0; ASSSRSSD DDS 
BRRPEP BIEBER ¢ ro" PISAT S5,5;p7" J 


MeO Ie RND<.5S THEN GOTO 126 
48 PRINT AT 6,@;" 


S@ PRINT AT 12.0. “HOW MANY CHE 
STS WILL YOU REMOVE?" 

6@ LET R=COCE INKEYS#-28 

7O IF Rei OR RS THEN GaTo 60 


SQ PRINT AT 12,0;° 
‘,AT 3,8. ° 


909 LET P=P-R 
288 PRINT AT S.5;P;" CHEST"; "5S" 
AND Pcsas” LEFT “: AT &, BP evbu “"R 

EMDVED "> R:; 

185 GOSsUB 24a 
2120 IF P¢«1 THEN GOTO 226 
42@ LET N=INT (Prd) *4 
430 IF P=N THEN LEY R=INT {RND# 

Bred 

14@ IF P<3>N THEN LET R=P-N 
i5€@ LET P=P-R 
160 PRINT AT S.@: "5 RENGVED “UR 
16S GOSUB 2408 
L?7@ PRINT AT S.S;P3;"° CHEST"; "Ss" 
AND P< sa; " LEFT ” 

280 IF P:t2 THEN GOoTa 2aG 
190 GOTO 496 

288 PRINT AT @©,.0; ‘H9RA I WIN RRS 
210 sTar 
sone PRINT AT @.@; "€££ You WIn £ 
230 STOP 
2d0 FOR A=1 TO 16 
250 PRINT AT_@. PM BEB t Ta RIGA 
T @.P i" ‘¢ TA R} 
260 NExT A 
270 RETURN 
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ttt GAMES FOR YOUR ZX81 


BOMB BLAS 
NIM 


In this variation of Nim, also written by Dilwyn Jones, you 
lose if you are forced to take the last object. The objects 
are unexploded bombs which must be defused. The last 
bomb, however, isunstable and will explode and kill you 
if touched. 

















4@ RANG 
£3 LET P= ZEST. (RND#15) 


+ 
PRINT @,2; "ERB3B92 
aun « TO Po;aT § 


3@ IF RND<.5 THEN SQTa 228 
4@ PRINT AT 6, @: 


S@ PRINT AT 12, ee MANY BOM 


6@ LET R=CQDE INKEY $-28 
70 IF R<21 OR RS OR R>P THEN G 


oTa 6@ 
B@ PRINT AT 12,@;" 


“SAT 92,85" 


-R 
abe eee ey ee 


=P 
139 PRINT ar 5,5iPi" BOMB 
AND eee. EFT “;AT &,@;° "yOu DE 


FUSED "3 
1¢@5 eosue 24a 
{ia IF P<1l_ THEN Sore. 268 


120 LET N=INT_(P74)% 
138 a P=N+1 THEN tet R=INT (URN 


D3) 41 

148 IF Poors THEN LET R=P- (INT 
145 “IF RP neh LET R=P 

146@ PRINT AT 9,@;"I DEFUSED "sR 


a 
Iv@ PRINT AT _S.S;P;7 SOME ™; “Ss” 


AE P<3a;" LEFT 
IF P<41 THEN GoTC 228 


180 GOTO 48 
200 PRINT AT 0. 0 I Win 
SAT 223.8; I WIN BS 


“210 STQP 
220 PRINT AT @, @; “BANG Yau WIN 


BANG": AT 12. ai° ‘BANG YOU WIN 


QP 
24@ FOR A=1_ TO 
25@ PRINT eae e; “BEE I TO RGR 


T @.P: 
26a NEXT A 
270 RETURN 
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POKER 


This 16K program by Neil Streeter not only plays Poker 
but also displays the cards. Although this makes the pro- 
gram longer than it would otherwise be, the added enjoy- 
ment that comes from having the cards shown graphical- 
ly compensates for the increased length. The display 
shows two hands, yours and the computer's, although 
you can't of course see the face of the computer's cards. 
You are then asked how much you want to bet. 


The ranks of the hands are as follows: 


LOWEST 

Nothing — loses to everything above 
One pair — odds one to two 

Two pairs — odds one to 21 

Three of a kind — odds one to 47 
Straight — odds one to 255 

Flush — odds one to 509 

Full House — odds one to 694 
Four of a Kind — odds one to 4,165 
Straight Flush — one to 72,193 
Royal Flush — one to 649,740 


HIGHEST 


After your initial bet you may change up to three cards 
and try for a better hand. The computer can do the same. 
The computer will then reveal its cards, and compare the 
two hands. If you lose all of your money you may borrow 
from the computer and try to win it back. The program 
can be saved by starting the recorder and simply press- 
ing RUN and ENTER. This means the program will start 
automatically on loading. Delete line 1 if you don’t want 
this option. 

Lines 1 to 105 set up the variables; 110 to 138 introduce 
the game; 140 to 592 hold the main game routine, while 
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597 to 638 is the end of game routine. Lines 640 to 793 
analyse the computer's hand and lines 800 to 911 are the 
hand type subroutines. Lines 940 to 1002 print the card 
types, 1040 to 6120 print the screen routines, and the lines 
from 7000 to the end are the ‘borrow money’ routine. Line 
190 is four inverse Xs, a graphic 7 and a space ten times. 


L SAYVE_“PORER” 
2 LET S$="), 


S LET BORROW=8 
1@ RAND 
12 DIN 


D 
A 
0 


CLL UIT Bm pet mm. ee me ee ee OO 
ul 


ui~ 
‘ 


7 


Li's 


OIE OMe 


LIA tO 0 Sot Se EO SO Nat oto Yt 








= 

“agade" 
“dS50¢2" 
"RAgse¢a" 
“dddada" 
“dadda" 
="O434d2" 
="S808a2" 


-~-LPHUHNHH Na 


f 

6S 

cr 

m 

+ 
Bae ae ea haa napa 
co cme es cae cme AE FE EA A A A A 
orem Lb BS ID ON) Od 





IM 
119 PRINT TAB 38;' 


LLi LET PO=180e 

Lis PRINT 

id PRINT “THIS IS THE GAME OF 
cece IN WHICH YOU PLAY AGRIN 
116 PRINT “THERE IS AN ANTE BET 
OF $5.88 INEACH ROUND AND YOU = 


TRRT WITH, Hl. IN EACH ROUND 
“ou MAY 


ee PRINT R 

PRINT "“BAISE - To RATS fs 
a NORE THAN YOUR EN 
fio BET. 
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isa PRINT “fA 
a LL - oO 5 a 
MPUTERS NAND* = To) ES 
eee PRINT Be 
225 PRINT "MQ oUT - Te THROW ¥ 
UR HAND IN." aS 
130 PRINT 
Le PRINT “PRESS ANY KEY TO FLA 
y . 


L134 PRINT 





135 FRINT TAB 12; ‘Sie 
136 IF INKEYS<>2°" THEN GOTO 238 
237 IF _INKEYS$=""" THEN GOTQ 137 


Z35 Cis 

140 DIN Si4,135) 

2521 PRINT AT 3,8; "THE CRROS HRV 
= SEEN RESHUFFLED." 

16@ LET AQ= 

163 PRINT AT 11,9; "ANTE OF $5.0 


sae PRINT AT 13,9; "YOU HAVE $"; 


166 IF Pea uae GOTaQ Feee 
i7@ FOR X=1 TO 

171 GOSUB 928 

LET N(x) =C 

LET N(X)=S 

NEXT X& 

GOSUB 1846 

PRINT 

PRINT "ILL DEAL MY HAND.... 


=] FQR X 


bo 2 ps pod pd 
D JoJo) ~J 
ORO) 


res 
o 
fo 


185 






GOsuB Bee 
LET C(xX) 
LET &txX} 
NEXT: 
















“PRINT AT 18,8; "YOQU HAVE §$"; 





280 GOSUB i188 

2@Q1 LET ¢ci1=T 

202 LET Ce=He 

2eas LET Pi=s-5 

211i PRINT _ AT 21,8; “OPEN WITH A 
BET. t(@-",F9- sin' 

212 INPUT BET 

213 IF BET:@ OR BET?PS-5 THEN & 
OTTO 218 

Sl4 LET B=8ETF 


SLl6 IF RND<.8 THEN GOTO Bae 
SEQ IF INT Uti TseRNnbd +333 0 THOSAN 
OI FtLI+ (TFL CBET- (BET ee THEN 
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My 


4) 


- 











SoTaQ 448 

230 LET AQ=AR+8 

231 GOSUB Sees 

232 PRINT "ILL ACCEPT. 

233 PRINT AT 19, 18; Po- S-BET;* 


234 LET STRAKE=8ET 

240 GQSUB Seee 

S41 PRINT “HOU MANY CRRDS Fa RE 
PLACE?" 

242 IF INKEYS .3°" THEN GOTO 242 
2Ba43 IF INKEYS="" THEN GOTOQ 243 
244 LET ES=INKEYS 

24S IF EsS<"@" OR ESO'"R" FHEN GO 
TQ ade 

246 LET KO=VAL ES 

2S@ FOR X=1 ae KO 

260 GOosSuUB See 

261 PRINT CARD NUMBER: 
“B=INT (v2.2; bats i 

C(Xl2i>INT tXr2}}; a 
26e IF INKEY §<3""" THEN GOTO 26a 
263 IF INKEYS="" THEN GOFQ Baa 
264 LET ES=INKEYS 

26S IF €&8$<"@" OR ESO'R" THEN SO 
TO 262 

266 LET TS=VUAL ES 

267 PRINT TQ 

268 GOSUB 228 

2ra IF Ta<6 THEN GOTO 28e 

271 GQOSUB Seee 

272 PRINT “ENTER CARD NO. {ti- 


27s GaTa 26e 
280 LET mt(Te)=ct 
261 LET NI(T9Q)=5 
282 NExT xX 

283 GOSUB 1044 
290 GQSUB 18708 
291 FOR xX=1 TO 
292 LET Ttmtx}?} 
293 LET KINtX)2 
294 NEXT X 
295 GOSUB SB2s5 
296 PRINT “BSE 
S@l GOSUB Gav 

3@2 LET Pi=t 

3Q3 GQOSUB Sea 

3Q4 LET P2e=He 

Sll GQSUEB 1888 

S12 LET Hoe=e8 

S13 IF TB THEN Gora ase 

S20 FOR Z=1 TO S 

S2l IF HY=3 THEN SOTO 348 

S22 LF TtttZ)to>1 THEN GOTO 3248 
S23 LET HS=He+l 

338 GOSUB gee 





n 


nu 


x4 
2% 


~~ 
++ 
he 






ee 
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cHHTTHHTHR GAMES For Your zxa1 Tf} fTHtth 


QG3L LET ciz} 
332 LET Oris} 
SdQ NERT & 

SBSQ GOSUB Sees 
SS1 PRINT "ILL 
“3"'S" RAND HOel; 
SS2 LET H&=Ho 
36Q GOSUB LBeae 
361 LET cist 

362 GOSUB Bee 
363 LET Ca=HR 
SFQ@ LET SS=INT t(tciz 
+(CL¥L@Q}24¢INT (Ae-33 


LET 8Bi=e 

IF RNDO<cCis.S THEN GoTo age 
LET Be=39.99 

GOSUB Seeae 

GOSUB 6eee 

IF &8<@ THEN GOTO O78 

LET RAS=RAR+h1 

IF 8<>2@ THEN GOTO 428 
GOSUB 4de 

GaTa S4e 

IF AVFB<BS THEN GoTOQ 4528 
IF ASFRBCBS+(BSv2d THEN Gare 


IF BS=E88.998 THEN GOTO 458 
GOSUB Seee 

PRINT ‘®um 
GOSUB 43a 

GaTa see 

GQSUB Seee 

PRINT "I CALL.” 

LET RAS=AR+R 

GQSUE 438 

454 GOTaQ S4e 

LET BL=INT (¢(t (BS-AB) +3) RN 


LET AS=AR78 

GQSUBa See 

471 PRINT “I RATSE $";82 
472 GOTQ 398 

48Q GOSUB 4eBee 

451 GQSUB Ladd 

4832 GOQSUB SeBee 

483 PRINT “I HAD "; 

454 LET T=cl 

455 GOSUa cee 

420 GQOSUB Seee 

2&2 PRINT “WITH A HIGH CRAD OF 


2 

492 LET C=tea 

4935 GQSUB 248 

494 PRINT ".” 

S@OQ@ IF Pi=-S THEN GOTa S2e 
5108 GOSuBb Sseee 


ni 
ies 


TARE “7H; CRALD 


ee 


D 


fs fa fo fe fe Be fe LILI IOI LI 
KWUNrPrPEASOOOO H+ 
BrOWRPBWRrPrFOUNMO~) 





fe 
ts 
© 






PPR Rep 
C10) fs fs Be 
POUNDERS 


fa fe 
aul 
Gn 


fa fat fe 
JOO) 
er 8 
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coe POKER Cth 


Sli PRINT ae HRD "; 


S20 GOSUuUB Seee 
,eel PRINT "WITH RA HIGH CARD OF 


S22 LET c=P2 

S23 GOSUB 94@ 

524 PRINT ".' 

S31 RETURN 

S40 IF Ci=Pi THEN GaTa sse 
S41 IF Ci<Pl THEN GOTa Sae 
S42 Gare s7e 

S50 IF C2=P2 THEN eaTe sse 
SSi1 IF Ce<P2 THEN GaoTa sae 
S52 GoTo s7e 

56@ GOSUB Sa@ee 

S61 PRINT “IT WAS 3 TIE...." 
S62 cota see 

S7@ GOSUB Seee 

S71 PRINT “See 
S72 LET PO=P3-A9 
S73 GoTo soa 

S6e casus seee 
S81 PRINT “YOU WON $$"; RR 

582 LET Pe=P94+A9 

Se@ cosus seee Z 
S02 PRINT “ANOTHER Go? Wes ar 






3°; AQ 


Yio)?" 

O23 IF INKEYS$<2>"" THEN GOTO S8a 
S594 IF INKEYS="" THEN GOTO Soe 
S595 IF INKEYS$="Y" THEN GOTO 236 
S936 cts 


SQ? LET Pe=Pe- TRORROWF Tae) 
SSS StcROLL 
“coe Sananhest INT 


B@l IF PS<O@ THEN GOQTQ sae 

SlQ IF Pe. =1Leae@ THEN GOoTa Gee 
Bll SctRQALL 

612 PRINT “YOU LEFT LOSING 3°; 4 
Sa-Pgq 

613 SCROLL 
6ia SCROLL 
SiS PRINT ** sna 
ANNA” 
S16 GAQTe 635 
B2eQ SCROLL : 
S21 PRINT “yOu LEFT WINNING 3°; 
PO 

622 ScCcRQALL 

S23 SCROQLL 

Sad FR mee cee er 











‘unnidaaienan 

625 GQTaQ “Sos 

630 SCROLL 

SSL PRINT “Yau QUE ME $7; -FPS 





39 








SCROLL 
SCROLL 


SCROLL 
SCROLL 


LET T=e8 

FOR I=2 FO 4€ 

IF KtI}<2S THEN GOTO 558 
LET T=5 

NEXT 

LET =e 

LET HOo=e8 

LET Y=I-i 

ZF I<?8 FHEN GOTO o7e 
LET I=12 

IF TtI} <1 THEN GOTO 558 
LET HO=Ir 

IF Ie>2 THEN GOTO 688 
LET Y=14 

LEF Z=r-4¢ 

LET I=I-1 

IF Tt(I) <>1 THEN GOTO Var 
IF Zio THEN GoTo see 
LET T=T+4 

IF Z4>28 THEN GOTO Vee 
IF =4@ THEN GOTO i178 
LET T=T?+z 


‘4 


+ 


IF I=123 THEN GOTO oR 

IF Ts2S THEN GOTO 73k 

IF Tt} <o2 THEN GOTO 7oae8 
LET HQ=1 

IF T=@ THEN GOTO 748 
RETURN 

FOR _T=1 TO 123 

IF Titi <>4 THEN GOTO 7sSe 
LET T=? 


H 
7 
~ 


22 THEN GOFOQ Yoo 


r 
m 
- 

BG 
it 

ia 

H+ 
Oy 


LET H 

IF Til} ¢<92 THEN GOTFaQ 7FRe 
IF T=S THEN GoOTQ FRe 
IF Te>@ THEN GaATO 77R 
LET HO=e8 

IF HO=1 THEN GOTO 7oe 
IF HO2I THEN GOTO 7ae 
LET HS=r 

LET YT=Te#i 

NEXT 

IF T<3S THEN GOTaQ 818 
LET F=3 

RETURN 

IF HOird THEN GOTO 828 
LET HO=14 

RETURN 
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Sea IF Tée8 THEN Gara 338 
Sel PRINT “NOTHING” 

S22 RETURN 

S30 IF T<o1 THEN GaTo 842 
SSl PRINT “QNE PAIR" 

S32 RETURN 

S40 IF Tio2 THEN GOTO 858 
S41 PRINT “THO PAIRS" 
S42 RETURN 

SSe IF Ti23 THEN GOTro 86 
S51 PRINT “THREE OF A RIND" 
SS2 RETURN 

S6Q IF T<>4 THEN GaTo a7 
S61 PRINT “A STRAIGHT” 

862 RETURN 

S¥Q IF TioS THEN Gore 828 

SVL PRINT "RA FLUSH" 

SF RETURN 

S80 IF T<>6 THEN GaOTFao 888 

SSl PRINT “RA FULL HOUSE” 

S82 RETURN 

Se@ IF Tso? FHEN GaTo gee 

Sel PRINT "“FOQUR OF A KIND" 

S92 RETURN 

2@ee@ IF T<>8 THEN GATTO 222 

SQ1 PRINT "A STRAIGHT FLUSH" 
902 RETURN 

9210 PRINT "A ROYAL FLUSH..." 
Qll RETURN 

920 LET S=INT (RND#4322 

Q92l LET C=INT (RND#23422 

930 IF StS,C)}=1 THEN Gora ase 
S3Sl LET S(S,C)i=2 

Q32 RETURN 

940 PRINT "“R" AND (C=H=2 OR C=a242 
2. "TT" AND C=18, "UU" AND CH=2i ssa A 
NO C=128;"K" AND C=13; 

941 IF C>1l AND Ci28 THEN PRINT 


$42 IF C=1 THEN LET tCH=il¢ 
as5 TF C>1@ AND C<i¢ THEN LET 


Q4a IF C=14 THEN LET C=22 

a3S52 RETURN 

1000 PRINT "HH" AND 3=13; "5" AND 
22, "RD" AND 3=3;, "°C" ANG S=€; 
1Q@@1l PRINT " E* 

19082 RETURN 

10408 CLS 

2041 LET LINE=e8 

ea TNT TRE 7; ‘BERS 
tees reattk < i 2 3 
1844 FOR &X=1 Fa s 


1Q@45 PRINT AT 24+LINE,@; 
1846 PRINT TRB (*-2) 26) ‘je 


4] 


n 


if 











x 
EU 
1OBS4d GOSUB oe 
LASS GOSUB Leee 
20856 FOR Ye=i FO 5 
19S? RS TAB (X-23 eB; ASIVAL TS 
tt .¥)) 
iass NEXT ¥ 
2968 NEXT X 
41861 RETURN 
tare DIN Kid) 
1aFL BIN TLS) 
1a72 RETURN 
TGSa GOSUB 1678 
1981 FOR X=1 Ric 
} 


wou cf 
az 
Om 
on om. 
ma 
a 
Sad nt 
++ 
phe 


ETUR 
5818 FOR G=1 TO 25 
NEXT ®& 
®25S PRINT AT 21.0; 58; AT 22,8; 
830 RETURN 
OBaO GOSVLE FOoS 
@@S PRINT “BAISE, BALL OR Bo ou 


6a1e IF INKEYS$<¢3"" THEN GOTO 601 
68208 IF See GOTO 6926 
BQ40 IF ER<s"R" AND se AND 


CH AL 
ey 
fy 
& 


6E680 IF Es="G" THEN LET G=-1 
SESS ITF Fs="C" OR E*="G" O THEN Go 


23 
670 GOSUB 5825 
S6QS8Q PRINT “HOW MUCH DO YOU RATS 
Ee BY? 
B8EoO8 INPUT 6B 
81608 IF B>BET OR B+STAKE>PS THEN 
GOTO sasea 
L IF B<=8 THEN oot Baas 
tis. LET STAKE=STAR 
a 


renee 
ey 


i185 PRINT AT 19, fO° po- STAKE-5,' 
28 RETURN 








mn 
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{EEE roman "HEEFFFFFFFEh 


F30a PRINT 

FLA PRINT “YOU HAVE NO MONEY DO 
YOU _WISH TOBORROW $1007 BES OR 
Fe2Q IF INKEYS<3"°* THEN GOTG FO 
FO3Q IF INKEYS=""* THEN GOTG Fase 
Fada LET ES=INKEYS 

FaS@Q IF Es<o"¥'" THEN GOTO 536 
FOa8O LET PS=1906 

FBES LET BORROQU=BORROUGL 

Fara GaTa 138 


16k POKER, 





oy 





THIS IS THE GAME OF POKER IN 
WHICH YOU PLAY AGAINST SE. 

THERE IS AN ANTE RET OF $5.88 IN 
EACH ROUND AND YOU START WITH 
$1l@E@Q. IN EACH ROUND YOu MAY: - 


GIRISE - TO RATSE BY NOT MORE 
THAN YOUR INITIAL BET. 


Soii - TO SEE THE COMPUTERS sane 

Ba aur - TQ THROW YQUR HAND IN. 

PRESS ANY KEY TQ PLAY. 
ES 





TOU MAYO BBS 








SRPFen worm A Peet. t@-2pSS5> 
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NESSIE 


In this game (written by Dilwyn Jones and using just 1K) 
the Loch Ness Monster is hiding behind a row ofrocks on 
the shore of the Loch, and you have to destroy it before it 
can eat you. Before you can do this, however, you must 
find out where the Monster is by pressing the key cor- 
responding to the number on the rock. The rock will be 
destroyed when you do this, and ifthe Monster is behind 
the rock it will emerge into view after the dust has settled. 
If you do locate Nessie, you must press any of the Jetter 
keys to destroy it, before it destroys you. 

Line 10 generates a number from one to nine, and turns 
it into a string character with the STR$ function, so that it 
can be tested later against the key being pressed on the 
keyboard. The numbers in inverse video are the rocks 
(you may have expected high resolution graphics). Line 
30 scans the keyboard, and line 40 prevents the program 
from continuing until one ofthe keys 1 to9 has been press- 
ed. Line 50 prints a space where the rock has been 
destroyed. Lines 60 to 80 produce a random delay to 
represent the time taken for the dust to settle, and you 
must not press a letter key during this delay time. 

If Nessie is not behind the rock you have destroyed, 
line 90 makes you try again to find it. However, if the 
Monster is behind the rock, then the program continues 
with line 100 which brings it into view. The loop in lines 
110 to 130 gives the player a short time in which to pressa 
letter key, and if this is not done within that limit then 
Nessie attacks. Enter any word beginning with 'Y’ (YUP, 
YES, YEAH, or whatever) at the end if you want another 
game. 
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NESSIE 








1 RAND 
S a vee CINT (RND#93 42 


2 3 
2 RINT AT 32,3; "8 B 5 
BB: at &. o.oo; AT & 


43 
3@ LET AS=INKEYS 
40 IF AS<c"42" GOR RS>"9" THEN GO 


38 

5@ PRINT AT 3.URL AFB" " 

6@ FOR T=1 TO RND#50+18 

78 ec a aa THEN GOTO 216 


30 IF Agius THEN GQTOQ 3e 

1@@ PRINT AT _3,-VUAL US#3; "2" 

41@ FOR I=1 TO & 

120 IF INKEYS>“S3" THEN GOTO 198 
NEXT I 


TO 


130 
14@ PRINT) Ae S,14; "ae" | 7 
AB i4;' nooPS. ‘oHOa' Ss ff BIT 


SLOW dene! 
145 PRINT AT 12,08; “ANOTHER Ga?" 
415@ INPUT AS 
16@ IF CODE AS<>CQODE "Y" THEN 3 


17@ CLS 
RUN 
22e ERA AT 3, (VAL Ugsse3-27; "G0 


T 
200 GOTO 145 

210 Boe AT 8,5; "TRIGGER HAPPY 
PERS 

220 GOTO 145 




















POLOMONY 


Here is your chance to make a million without any in- 
terference or competition from other human beings. Of 
course, you'll have to defeat the cunning ZX8] in your at- 
tempt to control the streets and properties of London. 
This program follows the rules of the well-known board 
game Monopoly, and you may well find your enjoyment 
of the game is enhanced if you set up a Monopoly board 
by the television while you are playing. Polomony was 
written by Chris Callender, and adapted by Clive Gif- 
ford, 











204. 
SLOMO 
PRINT “ ee 


COND ps 


a 


PRINT “ 
PRINT “ se 
PRINT " = =) 
PRINT “ Ea 
PRINT “ oe] 
PRINT “ 





or 


e 
e 


ut 
au NW 


9 


mw 
: 
0 
* El 


1 


rs 
a 
ft 
oO 


i .. A 


PRINT “ 
PRINT 

PRINT " 
PRINT “™ 
PRINT “ 


a 


af) 
ri 
a) 
z 


ny 





4 BA 
aa) af 
aT igoND 


On: 


PRINT 24,0; “PRESS ANY KE 
CONTINUE” 
tee THEN GOTO 268 
6@ DIM B#(4G,21) 

BS 


< 
Own 
o 


63 LET OE) oF 25042020 


5 
4@+1020 
1} 

13 


@ 
4Q@ LET M=9006 
115 LET Eee 
13Q@ PRINT eeenc ““NEMLINE'' TO 





132 RAE 
4134 LET D=INT (RND#6) +1 
136 PRINT “DICE ="; 0 
248 LET P=P+0 
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tae 
“" AND HAVE COLLECTED £200" 
6 LET P= 


roee 


IF P<=46 THEN GOTO i156 
PRINT “YOU HAVE PASSED ““Ga 


=9 
IF B#t(P) (2 TO 2) ¢>“GO" THEN 
oO 168 


os 
BS(P) (1 TO 153 =“COMMUNIT 
IF BS(P) (1 TO 10) S" IN 

EN = is = COME T 
BSt(P)} tl TO 6) ="CHANCE” T 
= 2806 
IF see {2 TO 4) ="“JAIL" THE 


25 
IF B6$(P3 (2 TOS 73 =“PRRKING™ 
GOTO 3089oo 
oe Pee. Eco 18) ="GO TO JA 


N 
IF B68(P} (1 TO 9} =“SUPER TAX 


4939 

“YOU LAND ON" 

PRINT B&(P3 

PRINT “WORTH E£° UCR) 

IF CS$(P3}=BS(P} THEN GOTO 46 


IF BS(P) <¢>P$(P) THEN GOTO 2 
PR a ema OWN “|; BSCR) 
PRINT Sao You BUY "“; BH (P3 


UT X$ 
IF X§C1) ="N" THEN GOTO 500 
PRIN “FINE - THAT WILL BE 


LET M=M-U(P} 
LET RiP? Ht(UlP) 
LET PS(P3 =BS(P 
PRINT “WILL YO 
PRINT 6&8¢(P)5 "7" 
INPUT X& 

IF X#€£213="N" THEN GOTO 508 
PRINT “HOW MANY HOUSES?" 
INPUT WN 

PR ys “AN HOTEL?" 

INPUT A& 

iF ASI ="¥" THEN LET Ne=S 
LET R(PJ H(RCPI +00 (PP) FN} 
LET M=M- {299#N) 

PRINT “GoOoD* 

FOR RA=2 TS 198 

NEXT A 


GOTS SSS 


4 29) 
WU BUILD ON* 
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400 PRINT “YOU ARE TRESPASSING 
ON MY _ PRGOP-* 

416 PRINT “ERTY - PAY EV GP) 
414 LET M=M-@(P) 

416 LET CM=CMH+60(P} 

+28 PRINT THANK You VERY MUCH. 


Seo PRINT "YOU NOW meen 2°M 
5S@2 PRINT “I HAVE £°:C 
503 Cea ae =1 TO 109 


51@ IF M«@ THEN GOTO 60028 
S15 IF CéM<c@ THEN GOTO 7866 
520 PRINT “MY SHO 

525 LET CO=INT CRNDO€6) +21 


BStCP3 (1 TO 15) ="COMMUNT 
G 1999 
IF een eS TO 10) =" INCOME 
S808 IF B8(CP) (1 TO 6) ="“CHANCE"™ 
THEN GOTO 
S90 IF fog. TSO 43 ="“JRIL" TH 
6@@ IF Bets ten aa TO 7) ="PARKING" 
IF BStcP) tt TO 163 ="GG TO JJ 
615 IF BSt(CP)} (1 TO 9} ="SUPER TA 
Xx" THEN GOTO 4008 
618 IF PS(CP} <>BS(CP)} THEN GOTO 
619 LET CN=CH-RI(CP} 
620 LET M=M+tRiCP} 
622 PRINT “I TRESPASS ON”™ 


LCR} 
623 PRINT “AND PAY YOU £"; R(CP2} 
624 IF PS(CP)} =BS(CP} THEN GOTO 


625 IF ViCP} =8@ THEN GOTO 589 
526 IF Bg(CP)<>CEst(CP) THEN GoTo 


PRINT “I LANDED ON "“. BELCP) 
: unTed I Qun* 


ooo GOTO 698 
PRI “I LANDED ON “. BS (CP3 
eso IF CM/U CCP) <19 GOR CM<16e0 T 
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HEN GOTO 635 


ES 3 
Sse IF N=S THEN PRINT “I Buy 
S$ (CP15 “WITH 4 HOUSES AND 1 


668 IF N=5 baal GOTG 658 
670 PRINT “I BUY “, Be ccrs 
a °WITH : 


Zz 
5 
now 
cc 
m 
Vs 


(CP) ¥{N#200)} 
684 LET C&tCP) =BStcP) 
63S LET CM=CH-VICP) 
687 LET CM=CN-(V ICP] €N) 
S39a FOR A=1 TO Se 


710 GOTO 1356 

73S LET CM=CN-VICP) 

2800 IF F=8 THEN PRINT “YOU LAND 
ERP ON “"COMMUNITY CHEST 

48910 IF FeHil THEN PRINT “I LANDED 
ON "COMMUNITY CHEST” 

192@ LET C= a. {ARNO #457 +2 

1@3@ GOSUB TiC 

104@ IF Fei THEN GOTO 636 

2@5@ IF F=@ THEN GOTO 5ee 

1@65@ IF rere THEN GOTO 1870 

19064 PRINT cae INHERIT £100" 
12966 LET M=M+10 

La7Q IF Ferd THEN GOTO 1866 

1a74 PRINT “I INHERIT £1906" 

1876 LET CM=CN+1600 

18980 RETURN 

L1i@Q IF Fc>@ THEN GOTO 1116 

2494 PRINT “YOUR ANNUITY MATURES 
- YOU COL- LECT £108." 
3186 LET M=MN+t100 

449 IF Fe>2 FHEN GOTFS 2328 
2124 PRINT “MY _ ANNUITY MATURES - 
ET COLLECT £280. 
116 LET CM=CM+1900 
129 RETURN 

444@ IF Fc>@ THEN GOTG 1158 

Lida PRINT “GANK ERROR IN YOUR F 
RUOUR; COL- LECT £220.° 

11446 LET M=MN+200 

1150 IF F¢>i THEN GOTO 1160 

L1S4a4 PRINT “SANK ERROR IN MY FAY 
OUR; I cotl- LECT £200" 

1156 LET fea 

11690 RETURN 

1168 IF Fire THEN GOTO 

1164 PRINT Sees HAVE ‘UGN est IN 
A BEAUTY ONTEST. 
4186 LET M=M+40 
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f 





{EEE Potomony "HES: 


4190 IF Fc¢>i THEN GOTO 1286 

1194 PRINT "“I_ HAVE WON £16 IN A 
BEAUTY CON- TEST.* 

11936 LET CM=CN+16 

1290 RETURN 

1220 IF F¢«¢>@ THEN GOTO 1238 

1224 PRINT “HA-HA PAY £56 IN INS 
WRANCE HA-HR" 

1226 LET M=MN-59 


Sa THEN GOTO i12&é6 
1234 PRINT “UGH: I HAVE TO PAY €£ 


1588 IF F<¢<>@ THEN GOTO 1518 
on re ae “HA-HA PAY £200 INCOM 


isos LET “MaM-208 
1810 IF F<¢<>1 THEN GOTO 1529 
1514 PRINT “GH NO I MUST PAY £20 


1516 LET CM=CM-200 

2 1949 
2ae0aQ me THEN PRINT “YOU LAND 
2010 IF_F=2 THEN PRINT “I LAND O 
WN CHANCE 


20290 LET C=INT (RND#5) +1 
2@25 IF C=5 THEN GOTO 2178 


10498 
205@ IF F¢«¢>® THEN GOTO 20608 
2854 PRINT "YOU WIN ae cafe 





2060 IF F¢é>1 THEN GOTO 2870 
2@64 PRINT "I WIN A CROSSWORD CO 
MPET IT ION AND GET £190" 


N 
2@80@ IF F<>@ THEN GOTO 2690 
epee “vou MUST GO BACK S S&S 


2086 LET P=P-S 
2@00@ IF Fe¢>1 THEN GOTO ae 
eet PRINT “I MUST GO BACK 3 SPA 


2@96 LET Barone 

21006 RETU 

2110 IF Feo THEN GOTO 

2114 PRINT “¥ou MUST ADUANCE TO 
HAYFATR" 

2116 LET P=40 

212@ IF F<>1 THEN GOTO 2134 

ea PRINT “ZI MUST ADVANCE TO MA 
YFAIR"” 
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125 LET Soe 48 

130 RETU 

140 IF rene THEN GOTO 2158 

idd@ PRINT “you Bee BEEN SPEEDI 
G - AND FINED £15. 

146 LET M=M-15 

2150 IF Fé>i THEN GOTO 2168 

2154 PRINT “I AM FINED £15 FOR § 
FEEDING." 

2156 LET a CMN-15 

2160 RETUR 

21i7e@ IF Fe 3 THEN GOTO 2156 

2174 PRINT "GO TO JAIL; DO NOT FP 
ASS ue “soa” enan 

#2176 GOTO S5eae 

Bisa PRINT "I MUST GO TO JAIL; OG 
ERR. oS Geons I OGNE??7" 


2164 GOTO 
2500 IF Peo S THEN PRINT “YOU ARE 
IN JAIL. BUT Se es VUISIT-ING" 
2510 IF F=1 THEN PRINT “IT AM IN 
JAIL, BUT ONLY VISTTING" 
253° GOTO 1049 

@@ IF F¢>@ THEN GOTO 30615 
S002 PRINT "DO YOU WANT TO PARK? 


S3@@4 INPUT K& 
3086 ae poe THEN PRINT "WI 


TF a THEN PRINT “ZX WILL N 
RERE™ 





SOS@ L 

3803S GOTO 1849 

35008 Bn Fé¢>@ THEN GOTO 3516 
3504 INT “YOu ARE IN JAIL; IT 
costs 250 TOGET OuT™ 
3506 LET M=M-50 
3510 IF Fcrl THEN GOTO 3528 
3524 PRINT “ZI AM IN JGRIL: F MUST 
PAY our” 


843 
4000 IF F¢>8@ THEN GOTO 4818 
4004 PRINT “YOU MUST PAY SUPER T 


1 
40@6 LET Ma -100 
4810 IF Féc>l THEN GOTO 4020 
4@0@1d4 PRINT “I MUST PAY SUPER TAX 
AT £100" 


4816 LET ere 1e8e 

48208 GOTO 104 

60ee@0 PRINT “you eee NO MONEY - 
SQRRY. YQU 

6@1@ PR ae “ENGTHER SAMNET" 


PUT AE 
6ea20 IF AgtL est" THEN GOTO 60S 
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a 

6@ea4 CLs 

S25 RUN 

6@3eQ STOP 

7@@Q PRINT "I LOSE. WELL DONE." 


7819 GOTO 6919 

3@@QQ LET 868613 ="Go" 

SQ@2 LET 8812) ="O0LD KENT ROAD" 
9@@4 LET B&(3)3 ="“COMNUNITY CHEST" 
93886 LET Bist a"VHITECHAPEL ROAD 
s@@S LET BS(53 =“ INCOME Tax 

sean LET B8(6)2="KINGS CROSS STAT 
moan LET BStFs=“THE ANGEL XISLING 
9014 LET 6B8(&) =“CHANCE"™ 

9916 LET Beiter beurre ROAD" 
9016 LET 68(10) ="PENTONVILLE ROA 
9920 LET &t117 =“ x 

90922 LET GS#{12)3 ="PALL MALL" 

9024 LET BEtis) =“ELECTRIC COMPAN 
9026 LET 688 (14) ="WHITEHALL" 

3026 B€ (15) ="“NORTHUMBERLAND 
AVENUE“ 

Sean 6626) ="“MARYLEBONE STAT 
9@32 LET Betis) acer STREET 

9034 LET 6$(16) ="COMMUNITY CHEST 
pa LET 6% (19) ="MARLBROUGH STRE 
9036 LET B$(2O) ="VINE STREET" 
9@40 LET 68&(21) ="“PARKING" 

9@42 LET 68 (22) ="“STRANCD" 

3Q@44 LET 88 C23) ="“CHANCE" 

98046 LET oe igs) = The Ea STREET" 
9046 LET 8€(25) ="TRAFALGAR SGSUAR 


3e5@ LET BS(26) ="“FENCHURCH STATI 
oe LET 6827} ="LEICESTER S@UAR 
9054 LET BS(28) ="COVENTRY STREET 


9€@56 LET BS(29) ="WVATER WORKS" 
aQass BE (SG) ="PICCADILLY" 
3@6@ LET B88(313="GO TO JAIL" 
2062 LET Be (as) a" CREORD STREET" 
Q@64 LET BS(SS3 ="“OXFORD STREET" 
9@66 LET B8(34) =“CONMUNITY CHEST 
QQ@68 LET B8(S5) ="“GOND STREET" 
3879 BSE(SS) =H"LIVERPOOL ST. S&S 


LET 
TATION" 
53 





73 ="CHANCE" 
8) ="“PARRK_ LANE” 
9) ="SVUPER TAX" 
OF =“MAVFRIR™ 


wo 
8 
s 
fo 
n 
7 
* 
ROUG 


$ 
307s LET Ses 
a 





38se@ GOT 4 
9952 Uf1) = 
9@84 LET Uta) =68 
9086 LET VUt3)= 
9088S LET Utd) =6e8 
9@98 LET U(S)= 
93@92 U (6) =208 
9094 LET Ut?) =196 
@36 LET Vté3s= 
Sess L UtiG? =288 
1@@ LET Vti10) =129 
9102 L VUeii} =8 
9104 L UiLias =148 
106 LET Vti3) =158 
9108 LET Vtidi =140 
911@ LET V(15)} =160e 
9112 LET V(163 =280 
Slid LET Vile =16o 
9116 LET Vt(16)= 
91228 LET VL19) =2158 
932120 LET Vt203 =268 
9122 LET VUtal3 =6 
9124 LET Vt223 =226 
22126 LET Vt2asi= 
91283 LET Utad} =226 
913@ LET Ut253 =246 
9132 LET VUl26) =28o8 
9134 LET U Cav} =269 
9236 LET Vt26s =260 
9138 LET Vt29) =158 
9148 LET VUtS@) =260 
9142 CET Vt3S1) =a 
9144 LET VtSas =Seo 
91426 LET Vt(333 =S8o 
42148 LET V(S4) =e 
915@ LET Vt3S)? =<3ee 
9152 LET Vt36)} =2008 
9154 LET VtS?i= 
91256 LET Vt(38) =356 
9155 LET Visgis 
391698 LET VUl4@3 =499 
93162 GOTO i180 
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ETE __povomony “HEEFT 





PRESS ANY KEY TQ CONTINUE 


eee Sa een FQ ROLL THE OTce 


vou LAND ON 

beetn fea ROAD 

WORTH 

WILL you BUY WHITECHAPEL ROAD 


FINE - THAT WILL BE £568 
WILL YOU BUILo Qn 
WHITECHAPEL ROAD 

HOW MANY HOUSES? 

AN HOTEL? 


GOOD 
YOU NOW HAVE £7940 
I HAVE f£oeee 


ewe meee ee wee ee wee ee ee eee ae ee es se 


MY SHOT 
DICE=6 
I LANDED ON THE ANGEL ISLINGTON 
i BUY THE ANGEL TSLINGTON 


WITH 3 HOUSES 
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CAMEL 


You are in the midst of the Sahara Desert, wandering 
about using the N, S, E and W keys (to go North, South, 
East and West respectively), finding treasure and 
avoiding poisonous snakes and water thieves, among a 
multitude of dangers. There are ten hidden hazards and 
treasures. Full instructions are included in the program, 
which was written by Chris Callender, and adapted by 
Clive Gifford. 
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PRINT "HELLO, WHAT IS YOUR 
INPUT NS 

PRINT 

PRINT "HELLO, "“";NS;"." 
PRINT 

PRINT "DO YOU KNOW THE RULE 


INPU RS 
IF RS tL ="N" THEN GOSUB Sea 
LET W=200 
DIM Rt(2e0@) 
FOR F=21 TQ 1@ 
LET R{F) =F #+5@@3580 
NEXT F 
FOR FH1i1 = 2eea 
LET Rt{F)} =RtCF-2282 2 
NEXT F 
DIM PS (20@,2@} 
DIM P (2@@,2} 
DIM S8(2@,322 
FOR B=1 TQ 188 
LET PtB, 23 =INT t(RND#27) +2 
ET P(B,2)=s+INT t(RND#17) +2 
NEXT 8 
LET P$C(12="A SWIRLING SAND 
LET PS$(2)}="A POTSQONQUS SNAK 
LET PIS} ="A LARGE OASIS” 
LET P$(4)1="THE LONG LOST JE 
LET PS$(S)="“RA CAMEL” 
LET PS (6) ="R TIME URRP" 
LET PS$(7)="R COMPUTER’ 
LET PS$(8)}="R BQx OF GOLD" 
LET P$t9)="A SCaRPIQON” 
LET P$(1@) ="WATER THEIVES" 
FOR FHil TO 20a 
ET PS(F)} =({P$ (F-28232 
NEXT F 
LET X=INT (RND#27} 72 
LET Y=INF (RND4482 42 
(4) = 
= 5 
Ss 2e) 
6 











275 NEXT 8 

28@ LET 83=8s?"" 

285 LET SS (Y} =BS 

29@ LET $$ (15) = 8 
R ee 

2935 CLs 


=o LET N= 
P@ IF P(n,12) =ABS X AND PIN,2) = 
ABS Y THEN Garo 4208 
$25 LET N=N+1 
33@ IF ieee THEN GOTOQ 32 
335 IF ABS =218 AND ABS X= 


aaa” 
INT Lene eer 


UT DS 
35@ LET CS=DSst2a TO {LEN DS) 
SSS LET CsUAL (Cl 
36@ IF C>i8 a a GOTO 3245 
365 LET Ds$=O05t2 
370 IF O$="N" THEN LET Y=¥- 


@ 
2a TH 


375 IF Of="S" THEN LET vevae 
38@ IF Of="E" THEN LET X=x+¢ 
385 IF O%="U" THEN LET X=x-Ct 
Saa6 TF X=2@ AND Y=18 THEN GOTO 
=] Wee THEN PRINT “GET WAT 


395 IF 

ER FAST" 
4@@ PAUSE zoe 

405 LET W=tt-2 

412 IF =8 THEN GOTO 58ue 
415 GOTO 215 

420 Bele RUN} 

1@a@ae@a@ CL 


1gas PRINT “you ENG tf IN A SAND 
1810. PRINT “CANNOT SEE AND WANDE 


1815 Ler XeINT (RND#S3) +2 
T@a2zB@Q LET Y=INT (RND#19) 32 
1825 PRINT "to Ree “eye 
1@3@ PAUSE 188 

1035 GOSUB 8ese 

184@ GOTQ 215 
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(EEE eanaet ST 


1500 CLS 

L5@5 PRINT “QH DEAR; HERE I5 AS 
NAKE. I HATES 

este PRINT "SNAKES. HIT IT PLEAS 


1515 LET A=S=INT tRND#5}) 
1S2@ IF A=1 THEN GaTa i588 





1525 PRINTF “QH NO - IF &ITF you." 
toon PAUSE 268 


CLs 
1832 PRINT “RANOTHER GAME?" 
L535 INPUT G5 
1840 IF G$(1)="Y" THEN RUN 
1545 GoTo 9399 
155@ PRINT "vou WERE LUCKY THERE 
.- BE CAREFUL" 
1555 GoOsus gesa 


2e0e0a PRINT “GREAT -I THINK THERE 


Ww . 
2010 LET RA=INT t(RND#2) 41 
2@1S IF A=2 THEN GOTO 2adce 
Secu e ee “YES IT Is. TAKE1@@ P 


2Q3@ LET W='+iae8 

2040 GOTO 2865 

2@S5@ GOTO ago 

2@6Q@ PRINT “NO -IT WAS A NIRAGE. 


SORR 

2@65 PAUSE 2se@ 

2e7Q@ GOSUB 28e5e 

2e7s GQOTQ e215 

2580 Sea “GREAT -HERE ARE THE L 


GL 
25@QS PRINT "“UEWELS" 
Geced LET T#=TS+"THE LONG LOST JE 


25209 GOSUB 2e@ee 
2525 PAUSE 250 


QO 215 
eee een “GoaDp, “;NS;" HERE IS 
SOO4 Eeere 25ea 


3e0@a6 CLS 
eee PRINT “WHERE ca YoU WANT TO 
TAKE IT TQ?" 


TQ? 
3012 PRINT “ENTER ""XR°’" THEN NEW 
LINE THEN ae een se eeee 
NPUT 














eio WARP "; 
3 PRINT . §'IME WARP EEE, 


3520 NEXT B&B 
3525 PAUSE e25e@ 


35360 CLS 

3538 GoTa 1528 

4@@@ CLS 

4003 PRINT “GUESS WHAT IS HERE," 


aN 

a0a5 PRINT "A COMPUTER. IT WILL 
HELP YOU TO" 

4QQ?7 slat aa 2e2 


CL 
4@1@ PRINT “FIND ANY OF THESE:" 
40415 FOR B=1 TO 18 
4@02@ PRINT 8; " "|; PS (BI ;,CHRS 116 


EXT 6B 
4027 PAUSE vee 
4@28 C 
<e3e PRINT “WHICH ONE DQ YOU WAN 


4635 INPUT =z 
404e@ IF Biz, 228? = AND P(Z,2)<>@ 


4065 
4045 PRINT “THERE IS NO “;PS(Z) 
4Q@5@ PAUSE 2ee8 


4@55 Cis 
4@6@ GOTO 4@22 
so 3 PRINT “TRY: -U"ZPIZ,1)5,", "RP 


(Z,2); 
407@ PAUSE 2ee8 


2is 
45ee@ PRINT “HERE IS A BOX OF GOL 
tsia eT ae A BOX OF 
= >" ee 

4515 GOSUB S000 meet 

2 oO 215 
5000 PRINT *“GOSH-HERE IS A SCORP 
S@@S LET A=INT (RND#2+12) 
S@1@ IF A=1 THEN GoTa 1S25 
Seis PRINT "GQOD- IT DID NOT BIT 


5S@20@ GOSUB 3e@5e 


A= 
$510 IF A<?1 THEN Baro S535 
$515 PRINT “YOU OVER POWERED HIM 


5528 PAUSE eee 
5525 GoOsus sese 
SS30 GOTO 215 
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TO GO ABOUT’ 


eee Pa ae 


Sead Print. 
UMBER LES 
Suse PRINT 
FE oR W" 


5BS38S LET @=INT (RNDSL 

S548 PRINT "HE STOLE “,8;," PINTS 
5354S LET W=-a 

5S5@ PAUSE 2ee 

SSS2 GOsueae 8@eee 

S556@ GoTo 128 

Ne PRINT “Yat! OIFEHP BF THIRST," 
ah 

&0@5 PRINT "PID YOU KNOW THAT??? 
68160 FPRUSE 268 

6@1S CLs 

6820 GOTO 1538 

7@@0 PRINT “YOU GOT OUT OF MY DE 
SERT ALIV 

7010 IF Ts=""" THEN GOTO Vee 
7828 PRINT “AND MANAGED TO TAKE: 
7eea PAUSE 2ee8 

7@2s5 LS 

7O3@ Cae TS 

7@49 PRINT “PREPARE TO TRKE OFF" 
7@a45 Gore 1528 

S@@O CLS 

SeBv2 PRINT 

80@3 PRINT 

SLB PRINT “WELCOME TO THE GAME 
CAMEL," 

8015 PRINT NS; ". 

83Q@20@ PRINT “THE AIM @F CARMEL I5 


_ THE PESERT USING KEY 


“FOR DIRECTION, AND A 
33" 


“THAN 6G AFTER THE N,S 
, TO TELL THE £xXd1 THE 
, MILES You WANT TQ MO 


“GET TO THE AIRPORT.W 


HICH IS THe" 


S13@ PRINTF 
HT HAND" 

81490 PRINT 
8145 PRINT 
8... THERE 


"Si SERS 
rs" 


“ f IN THE BOTTQM RIG 


“CORNER 
QF LINE 121 
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Sid? PRINT “AR STRONG HEATHAZE WH 
ICH MAKES “ 
8148 PRINT “YOUR POSITION IMPOSS 
ISLE TO SEE.” 
3149 PRINT 
815@ PRINT " ##3HAVE A GOOD 
GAME x**" 
816@ PAUSE 15ee@ 

RETURN 
900@e@ IF N¢=1@ THEN GOTO 3@15 
9@@5S LET N=N-1@ 


2 
9@15S FOR F=N TQ 288 STEP 1a 
9@20 LET oo os 


N, 1) =@ 
3055 LET PI(n,2) =@ 
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{EEE EEEEEE,_ an BENDER CHEEEFEEFFFE 


MIND 
BENDERS 














Paul Toland's marvellous graphics game Caverns need 
not destroy your nerves, so long as you concentrate. This 
game is a test of mental arithmetic applied to a specific 
problem. You must gettothe end ofthe network ofcurves 
using the path of your choice. The catch is that at several 
points in the caves you have your two totals, A and B, 
altered by the displayed amounts. 

You must reset A and B to zero again before you can 
safely enter the end of the caves. Hitting the walls puts 
you back at the start, as does hitting an inverse X. At the 
end of the game you will be offered another round. Just 
press ENTER if you want another game, 'N’ if you do not. 


S REM CAVERNS (C} P.TOLAND. 
CLS 





i LE “A=O 
or on B=A 
15 LET T=sA 
20 LET X=2 
25 LET N=0 
3@ kL Yei 
49 P=PEEK i16S96+PEEK 16397 
x256+ 


i 
S@ PRINT AT Y,X%;" “ 
6e@ any t Xa xs CINKEY $2°8") — CINKE 


Yes—5 

vee = LET YWil=¥ + CINKEY $="6") - CINKE 
se “PRINT AT Y,X;CHRS 

90 LET N=PEEK (bya egoexay 

21a8 eer AT Y2,X%21; 

118 N=@ THEN Gato. 218 

115 IF N<166 CR N>191 THEN GOTO 


20 

2208 IF N=189 THEN GOTO 328 
413@ IF N=179 THEN GOTO 260 
148 LET A=A+4+S (N-165,1) 

15@ LET B=8+5(N-165,2) 

16@ LET oe ae AL 


18@ LET OS=STRS B 
2188 PRINT AT 3,25; D3 
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CAVERNS 








228 LET X=X2 

LET Y=Yi 

LET T=T+1 

PRINT AT 3,16;T 

GOTO Se 

IF A<>@ OR B<¢>?8 THEN GOTO 2 


PRINT “YOU MADE IT - WHAT K 











35a 
Pal LUCK ~- A AND B 
so 
“YOU HIT AN B" 
» “TRY AGAIN?" 


P CS 
IF C$<¢o"N" THEN RUN 
STOP 









~207-1-701801-106036 
BS="B6-L91ES-6-3-S8307- 
$(13,2) 

i=1 TO 13 

StI,1) =sVAL ASt(I#2-1 Ta 
St(I,2) sVAL SH$t(Ix2-2 TO 





S@e@ NEXT I 
519 DIM DSst4) 
S208 RETURN 
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cE GAMES For your zxai {ttt H{ftth 
HURKLE’S 
MAZE 


In this game, written by Paul Toland, you are looking for 
the Hurkle on a randomly generated maze-type board, 
searching in real time. You move through the maze using 
the ‘5’, ‘6’, ‘7’ and ‘8’ keys, and your taskisto try and land 
on the square occupied by the Hurkle. You cannot, 
however, see the Hurkle (they are invisible except 
under dilithium light), so you get cluesastothe creature's 
current position in terms of North, South, East and West. 
When you have found the Hurkle, press 'N’ tostop, orany 
other key for a new game. 

Line 5 modifies the random maze generation to ensure 
that all parts of the maze can be accessed. The 
characters in M$ have codes which generate usable 
screens when put into a RAND N instruction. There are 
many such screens, but we have only given 14 ofthe best 
of them. The maze generation process runs in the SLOW 
mode and, although it takes a while, is fascinating to 
watch. 


=== 
EB 


Zea 


= 





yf 

















2 RAND 

S LET MS="P Sel? > “4 9EHIKLN"’ 

7? RAND CODE MSCINT (RND#14) +1 
@ 





i=1 0 38 
S@ LET X=INT (RND#28) +1 
6@ LET Y=INT (RND#9) #2712 
7@ L L=INT_ (RNDs (29-X)) +2 
8@ FOR J=@ TOL 


PRINT AT YsXed;," " 


INT (RND2#15) #2321 
12@ LET Y=INT (RND#17}) +2 
13@ LET Sea ee ee 


i159 Ree ae Yeu, he, 


LET T=9 
4186@ LET P=PEEK i16396+256#PEEK 1 
839742 
18S RAND 
490 LET X=INT (RND#7@0@4) +2 
195 IF PEEK (P+x}2@ THEN GOTO 2 


200 LET H=INT_ (RND#704) +1 
265 IF PEEK (P+H}>@ THEN GOTO 2 


@ 
210 POKE P+xX.26 
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ec) 


298 
Sento 


D=X+ CIN 


@ LET 
="S") 4 (INKEY$="6 
#33 


POKE P+x 
LET T=T+ 
IF PEEK 


28 
{P4D)=@ THEN LET X= 


IF X=2H THEN GOTO 3508 


LET XD=INT 
LET Xf=X-XD+# 
LET HD=INT 


LET HA=H- 
PRINT 


IF XD=HD 
IF HD<xD 


IF HD >xD 


“BOUTH 


319 
, B28 


IF XA=HA 
IF HA<XA 


WEST 


"330 


IF HA>XA 
j 


AT 8 


Qeaen 


) 


THEN 
THEN 


THEN 


THEN 
THEN 


THEN 


=“ 


ZF INKEYS="N" 


RUN 
PRINT 
GOTO 4 


tX% 733) 
33 
(H733) 


EY $="6"') - (INKEY 
") 433- CINKEY $=" 


GOTO 31a 
PRINT AT 


PRINT AT 


GOTO 2186 
PRINT AT 


PRINT AT 


N GOTO 


» GOODBYE" 
i@ 


@,5; 
@,5; 


2,12 
@,16 


18 
“¥OU FOUND HURKLE IN 
itso ee GO? 


THE 
THEN GOTO 410 


372 
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EXECUTION 


In this snappy variation of Hangman, by Paul Toland, you 
store a vocabulary of 30 words within the program, and 
the computer chooses at random from one of the words. 
You then have a limited time to guess the computer’s 
words. 

When you first RUN it, you will be asked (line 3) to enter 
your words, one by one. You may prefer to have some- 
one else do this, so you do not know which words are be- 
ing entered. You will find the game is more fun if you 
enter words which bear some similarity to each other 
(like FRIED, FIEND, FRIEND and TRIED). Once you 
have entered the words they can be saved on tape along 
with the program. 

You save the program by entering GOTO 390. This will 
ensure that, on reloading, the program will start 
automatically, thus protecting your words from being 
wiped out with the use of RUN. If you want to RUN it after 
the program has been halted, start it with GOTO 5. 


1 DIM OR (38,10) 
3 FOR I=1 TO 3a 

3 INPUT Dt) 

4 NEXT I 

S PRINT AT 2. 10; “EXECUTION” 
& REM (C) PAUL TOLAN 

F PRINT AT 2,3; 

10 RAND 

29 LET G=0 

30 LET C=G 

409 FOR i=1 TO 18 | ‘ 

52 PRINT TI; TAB 23" 8 R 

6 

7@ PRINT “ Eze" 


6@ PRINT AT 8,3; "0 0" 
90 PRINT AT 9,5; ">=<" . 
95 PRINT AT_18,3; "ENTER GUESS" 
1@@ LET R=INT (RND#3@) +2 


=1 TO 10 
R,I)>" " THEN LET Us= 
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AT 18, 
-PRINT ."“TRY AGAIN?" 


INPUT As 

IF AS="N" THEN STOP 
CLs 

GOTO 5 

SAVE “EXER 

GOTO 5 








LET L=LEN WS 

Poe AT 8,20; "THE WORD” 
LET CHa" PPPTIPIIII?" C TO LL) 
PRINT AT 18, 20, ¢ 

PRINT AT &, 45° co 

IF TNKEY 6 i THEN SOTO 198 


NEXT 

IF Gs=us THEN GOTO 32a 

PRINT G,3; 

LET GaGt2 

a ee ae wees 178 
RINT 12.3; 

PRINT 


RINT AT 2, 2@; “COMPLETED” 
GOTO 33e 
PRINT AT 2, Seca 
PRINT 








ANAGRAMS 


Like Execution, this word game from Paul Toland allows 
youto store a vocabulary of 30 words within the program, 
with the computer choosing at random from the words. 
You have a limited number of guesses to work out the 
word. 

When you run the program, you will be asked to enter 
30 words, pressing ENTER after each one. Then the pro- 
gram is ready. Run it, and you'll see the jumbled word; 
then you have to enter what you think the right word is. 
The correct letters will be highlighted for you. 

Once you have the vocabulary in place, save the pro- 
gram with the command GOTO 340. This will ensure it 
will run automatically on loading. If you stop the program 
after loading it, and want to run it without losing your 
words, start it with GOTO 10. 


DIM eee 1@) 
TO 38 


a 
2 FOR =i 
3 TNPUT DS(T3 
4 NEXT I 
S REM (CGC) PAUL TOLAND 
1@ RAND 
20 PRIN Be ANAGRANS"™ 
3Q@ LET R=INT (RND*3@) +2 
4@ LET Wse"" 
Se@ FOR Ir=1 TO 10 
6@ IF BDS(R,I} >" “ THEN LET WS= 
Wee xX) 
NEXT 
50 LET L=LEN WS 
9@ LET Ss=" “¢ TO LL} 
4@@ FOR I=1 TOL 
223@ LET R=INT (RNDxL3 +1 
129 IF Sn “ THEN GOTO 116 
13@ LET S$ (R33 =WsiT? 
14@ NEXT 
15@ PRINT “YOUR ANAGRAM IS “;58 
16@ FOR J=1 TO a 








198 PRINT Gs 
2eaQ an “ees SE fies GOTO 26o 
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FOR I=1_TO eae Gs 
IF I>tL THEN GOTO 2é5 
IF G(T) ES) THEN PRINT " 


IF GH(I} <oWS CD) 


XT J 
URRINT "TIME UP 


PRINT "THAT'S 


IT 
PRINT as AGAIN ae 
AS="N" THEN STOR 


CLS 

GOTO 18 
SAVE “ANAB" 
GOTO 18 


THEN PRINT 


~ THE WORD f 


ane 








SELF 
DISCOVERY 














REACTION 


This reaction timer, written in BASIC and machine code, 
comes from Alistair Miller. The program tests your reac- 
tions at various skill levels. When it is first run it is in 
demonstration mode and shows the various skill levels. 
The machine code occupies 77 bytes and is stored in the 
REM at line 1. 

Once the program is working you enter your skill level. 
Then, after a random delay, a line starts to move across 
the screen at the specified speed. You now press 
ENTER/L/K/L or H to stop the line. You will be told how 
many blocks the line moved, and be given a chance to 
play the game again. If you press a key before the line 
has started — during the random delay — you'll be told 
you cheated, and the game will start again. 

If you do not have an assembler you can omit lines 5 to 
210. Assuming that you do not have an assembler, type in 
the word REM followed by 73 full stops. Then enter the 
routine from line 9000 onwards. Run the routine and enter 
the following, counting / as ENTER (note there are no 
spaces, but they are used here to make it easier to follow, 
and note also that these are zeros, not letter Os): 


2A 0C 40 / 23/1E 16/01 21 00/09 09/ 
09 09 / 09 09 / 09 09 / 09 09 / 

22 84 40 / ED 4B 82 40 / 03/ 

ED 43 82 40 / ID / C8 / 2A 84 40 / 

36 80 / 23 / 22 84 40 / 06 64 / 
0E64/C5/CDBB02/7D/CI/ 

FE BF / C8/ 0D / C2 BF 40/05 / 

C2 B4 40/ C39E40/S/ 


Now type in the rest of the program, then SAVE it 
before you run it. 
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REM ; <=?9OEERND72-" 5 a 
mMmEERND GOSUB ?7RRND™ GOSUB ‘tie 
RND ACOs ESRNDGE7GSRNO?: TUAL LN 
BST RETURN OS $TAS BRNDITAE 


NO TBRND 

& REM >-START OF ASSENMBLY - < 
& REM >- LANGUAG -< 
29 REM ¢ 

20 REM LO HL . 26596) , INC Mi 


6Q@ REM ADD HL BG. ADE HL.BC 

65 REM ADD HL.6BC; ADD HL.BC 

67 REM ADD HL.BC; ADD HL.BC 

7S REM LD (16516) .HL 

8@ REM :L@LO BC. (16514); INC BC 
;LD (165414). 

SS REM . Zz 

9@ REM LD HL. (2652533 LD CHL .L 
BS; INC RL; LD (16516) .HL 

10@ REM LOD 6.1866; -icidp C.168 

165 REM PUSH BC 

11@ REM CALL#$@2BB;LD A.L;POP BG 

120 REM CP SBF;RET =z 

13@ REM :LiDEC C;UP NZ.Li 

14@ REM DEC B; JP NZ.L2 

iS@ REM JP L® 


M ) 
200 REM >- END Bees 7 
3@0@ PRINT AT @.86; “REACTION TIME 


Rr.“ 

3 INT "YOU WILL SEE A LINE 

MO ACROSS THE SCREEN.“ 

3290 PRINT "YOU MUST STOP THIS L 
INE AS GUICKLY AS _ YOU CAN.” 


SS@ PRINT “STOP THE LINE USING 


KEYS :-' 
$4@ PRINT “ H.J,K,L,NEWL INE 
"350 PRINT AT 11,9; °° == "3 
6@ PRINT “ S 6 9 12 15 16 
22 
7@ PRINT AT 21.0; “Hed. Ke LeNeb 
TO START. 
38@ FOR A=1@@ TO 1 STEP -5 
362 PRINT AT 21,0; "H, pL NZL 
TO START 


Bes EOke 16868: 
38? 
_389 PRINT AT 1%, a; “SKILL LEVEL 


“398 RAND USR 16528 
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IF INKEY€<>"" THEN GOTO 432 
PRINT AT 1@,@;° 


NEXT A 
GOTO 3s6 
PRINT AT 10,@;° 


PRINT AT 21.@; "SKILL LEVEL 


i ~10 HARD - -EASY" 


nE22 


INPUT 5 
IF 5<1 OR S>1@@ THEN GOTO 4 


POKE 15563,5 


PRINT AT ae 4; “SKILL LEVEL 
PRINT AT 14.0; "RANDOM TIME 


FOR A=1 TO INT_(RND#2@@) 
IF INKEYS<>"" THEN GOTO 626 
NEXT A 


RAND USR 16520 
LET K=PEEK 16514+2S56#PEEK 2 


IF K>=21 THEN GOTO 600 
PRINT AT 14,0; “YOU STOPPED 


SS 
THE LINE AT “:;:K 


S90 


GOTO 662 


660 PRINT AT 14,0; “YOU FAILED T 
ee aoe THE LINE. 


76 
90a5e@ 


9e@60 
3078 


GOTO 6668 

FOR A=1 TQ ae. 

PRINT AT 10, 

ear 108, O. “CHEAT. CHEAT" 


FOR A=1 TO 186 

IF INKEYS<>"" THEN GOTO 67& 
NEXT A 

PRINT AT 16.0," 


PRINT AT 14,0;" 


GOTO 358 

LET AS="" 

ad X=1652e 
Ag="" THEN INPUT AS 
AS="S" THEN STOP 

POKE x, 16*xCODE AS+CODE AFiz2 


LET X=X+1 
LET Oe eon TO } 
GOTO 9020 
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This program measures recent changes in your life and 
the effect those changes have on you. Any change in your 
life, be it good or bad, creates measurable stress. 
Christmas is stressful, and so is gaining a new job, ora 
new member of the family. 

A number of situations — PREGNANCY for instance — 
will be printed on the screen. If you are pregnant then 
press the 'Y’ (for YES) key. Ifnot, press ‘N’. Atthe end, an 
assessment of your situation will be made, and a com- 
ment made on this. 


1@ REM L.C.U. tee TOLLAND 
15@ PRINT " -U. TEST" 
16@ PRINT " HOW. CHANGES IN YOUR 


7@ PRINT AT 12,6; "PRESS Y OR N 


6@ LET L=@ 

190 GOTO 2508 

2@@ PRINT AT 18,0;L8;") 

21@ IF INKEYS<>"Y" AND INKEYS$<> 
“N“ THEN GOTO 210 

2ee IF ee a ae THEN LET L=L+ 
VAL Ss ittee TQ I#e2} 

23@ LET I= T+ 2 

232 FOR K=i TO 18 


=1 
26 ET ="O9O737165636S353504 74 
5$4544404@039393938373635333130292 
929292826 26252423212020201919151 
Te eee sek 

270 LET LS$="DEATH OF SPOUSE" 
275 GOSUB 2008 

LET L§="DIVORCE"™ 

285 GOSUB 2e@ 

296 LET LS="GIVING UP HARD BRUG 


295 GOSUB 208 
S@@ LET LS$="MARITAL SEPERATION" 
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CHT HHT, GAMES FOR Your 2x81 HHtHtTHt th 


S@S GOSUB 2028 

31@ LEFT Ls="PRISQN SENTENCE" 
SiS GOSUB 2ee 

32@ LET Ls="CEATH OF CLOSE FAMI 
LY MEMBER" 


SeaS GOSUB 280 
SBG@Q LET ts="PERSOQNAL INJURY OR 
TLLNESS" 
S35 GOSUB 2aa 
348 LET LS="NARRIAGE" 
24S GOSUB 2aa 
eae LET Lg="SACKED + MADE REDUN 
SS GOSUB 208 
@ LET Pee MARITAL RECONCILIAT 
365 GOSUB 288 
37@ LET ps2" RETIREMENT" 
375 Coon 2ee2 
35@ LET Ls=""CHANGE IN A FAMILY 
Nees HEALTH" 
85 GOQSUB 2ee8 
398 LET Ls="PREGNANCY" 
S95 GOSUB 2028 
geet 7 eee UP > 40 CIGA 


4@5 Gosus. San 

41@ LET Seaaee DIFFICULTIES" 
415 GOSUB 220 

42@ LET LS="GAIN OF FAMILY MENS 


425 GOSUB 
438 LET ree "BUSINESS READJUSTME 


435 GOSUB 2ee@ 
<o5 LET La="CHANGE IN FINANCIAL 
445 GOSUB 200 
ime LET t=" DEATH OF CLOSE FRIE 
455 GOQSUB 268 
466 ae cas ="CHANGE TO DIFFERENT 
LINE K" 
ooe cosus 288 
ET L$="CHANGE IN NO. OF AR 
sUMENTS | Cpe SPOUSE" 


ee 
488 LET LF s="PRE-MENSTRUAL TENSE 


485 GQSuUa 28a 
498 aa See ee OSes OF MORT 


LO 
425 Baste 2eea 
S@G@ LET Lg="MORTGAGE OVER £28, 


5@Q5 GOSUB 26a 
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ERE are 


Si@ LET -Lg="CHANGE IN WORK RESP 
ONS IBILITY 

515 GOsus 

S2eQ LET bes SET LAG" 

Sas GOSuUB 2eea 

53a ceo oe OR DAUGHTER LEA 
S GOSUB 208 

S40 LET Ls="FROUBLE WITH IN-LAW 
545 oer 


S50 css" 
L ACHIEVEN NT 
S55 GOSuUB 2e0@ 

Shonen” L$="HIFE BEGINS OR STOP 
56S GOSUB 202 

S7@_ LET Ls="CHILDREN START OR S 
TOP SCHOOL 

S7S GOSUB 208 

SOO LET Le="CHANGE IN LIVING CO 


=" QUT STAND ING PERSONA 


E 

L ITs" 
S95 GOQSUB 

@@ LE Dea TROUBLE WITH BOSS" 
6@5 GQSuBs 
61@ LET LS="GIVING UP <« 48 CIGAH 
RETTES A PB 

i5 SUB 


2e08 
626 LET LS="CHANCE IN WORK HOUR 


&3@ LET Ls§="CHANGE IN RESIDENCE 


635 GOSUB 208 

64@ LET Eee ae IN SCHOOL" 
645 ee 2008 

658 LET L$§="CHANGE IN RECREATIC 


655 GOQSvua 28a 

660 LET Lge="CHANGE IN CHURCH fo 
TIVITY" 

665 GOsus 280 

67@ LET Ls="CHANGE IN SOCIAL AC 
TIVITY" 

675 GOSUB 2ee 

S50 LET Ls="HORTGAGE OR LOAN UN 
DER £28, 082 

G82 GOSUB 2ee0 

Sane LET LS="CHANGE IN SLEEPING 
686 GQSuUn 282 

S90 LET LS="CHANGE IN NO. OF FR 
HILY GET-TOGETHERS" 
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695 GOSUB 208 
aeees LET Ls&="CHANGE IN EATING HR 


GQSUB 268 
@ LET Ls="GOING ON A HOLIDAY” 
5 Coen 2ea 

@ LET Lg="IT IS CHRISTMAS" 

§S§ GOQSuUB 2 


ee 
cee LET LS="MINOR VIOLATION OF 


L 
735 GOSUB 208 
Beat PRINT AT 7,3; "YOUR L.C.U. T 


IS "Gk 
“T86 PRINT a THE VERDICT-" 
60 IF L<15@ THEN ge “YOU AR 
E LIVING A STABLE , SAF WAY OF 
LIFE ANC YOU ARE LESS LIKELY 


THAN AVERAGE TO HAVE AN ACCID 
765 IF L=@ THEN PRINT "---UNLES 


= 
7?7Q@ IF Ces AND L<20@@ THEN PRI 
NT “THERE 35 3? PER CENT CHANC 
Ee QF YOU ENCOUNTER ING HEALTH © 
R SAFEY PROBLEMS. 


78@Q IF ee ta FIND L<30@ rece oe 
NT "you ER CENT LIKELY 
Q HAVE RAEALTH QR SAFETY PROBL 


EMS; THIS I5 A GOOD TIME TO CALM 
COWN" 


7a8 IF L>299 THEN PRINT "##WATC 
H OUTs* YOU NOW HAVE A 79 PER CE 
NT CHANCE QF HAVING HEALTH OR SA 
FETY PROBLEMS. DO NOT GIVEUP nee 
E-SIMPLY TRKE_EXTRA CARE AND 
Soe S. QUIET LIFE UNTIL BURSCORE 


We8e PRINT ,,"RNY MORE “"CLIENTS 


81@ INPUT AS 
S20 IF As="N" THEN STOP 


CLs 
6408 GOTO i 








SS 


Y 
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CoH GAMES For your zxai 4TH HT 


ARMADA 


This is an elaborate seafaring war game for two players, 
written by Jim Archer. Although it is based on Bat- 
tleships, it has many developments not found in the stan- 
dard game. For a start there are six different types of 
ships: six battleships, five cruisers, four torpedo boats, 
three aircraft carriers, two submarines and one 
destroyer. The fewer there are of them, the more points 
you gain by hitting one. 

The players are first asked to give their fleet positions 
(while the other player averts his eyes) to the computer, 
which acts as umpire over the forthcoming sea battle. 
Positions entered are checked; they must be adjacent to 
another ship of their own kind, and not next toa ship ofa 
different kind. 

A player is then chosen by the computer to start, and 
the players take turns at firing onto the opponent's ter- 
ritory. A hit gives youan extra turn, andaseachsquare is 
tried it is ‘whited out’ so you will know not to try that 
square again. If, however, you do try a square again the 
computer will let you know with the words TRIED 
ALREADY. If you crash the program (which is pretty 
hard to do since the computer will query odd inputs) you 
can restore the current game with GOTO 2500. 


19 DIM Ag*(4,18, 2.3 
15 PRINT ”" ARMA 
16 PAUSE 5o 


2@ CIN OF (2,5) 

ee 

42 PRINT “NAHE OF IST PLAYERS 
LETS? " 

















LET H=H+7-R 
2 PRINT AT oie 
TO S+VAL (BSR, 


269 PRINT 


“ee 


2 


Gdsu6 2920" 
GOTO ve 
LET Ag Ix, 


NEXT 
NEXT R 


Ss 

RINT OS ¢(X3);"“ 
ET POSITIONS ® 

ee cee 160 


356 FAs ST 
ae oe OGtX;° 
RINT 


P 
FOR Z=1 TO 


Y=il TO 16 
410 IF AG(X,Y¥,2) o>" 

T TAB 
42@ 
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1 STEP 
R 


Par by) 
205 IF R22. THEN PRINT 


219 PRINT AT 21,22; "NO." 
AT 2 ;AT 21,28; 


,WI =BSst 
Nese ae, S+2+ 


—2 
“ "; BSR, 4 
ee 


U3 > ar 


4} 
BStR,4) 


GIVE YOUR FLE 


See ea 


19 
=19 THEN GOTO 1000 
PRINT “6s 


(23; 
* THEN PRIN 


Sey eee ree 








TA 4 
IF 2=19 THEN GOTO 1626 
PRINT “ “3; G4 021; 
FOR Ye=1 TO 


NEXT ¥ 


NT 
PRINT TAB 5;O0O8 01) ;TAB 22;0% 


PRINT 
PRINT TRE 4; ae ";SC2LI37T 


AB Soe te “ste 


RINT AT 19, 2; “FIRE AWAY: 
RETURN 
GOSUB Sea 
LET KeINT (RND#272) 
LET M=121 
aa PeS-K 
RINT AT 21,8;° 


we 


ee oc, 19,0;O08 0%) ;AT 19,1 


ee ASCP, T,32¢>" “ THEN GOTO 


LET ASIP,TI, 3} >a 
LET AS(P+2,1, en 
PRINT AT J435 Sede (P- 1y4r;" 


PAUSE So 

LET K=P 

GOTO 74e 

FOR Xs TO Wei 
FOR Y=i TO 126 
FOR Z=1 TA 106 
eee yvY 2F eG 


400 
INT "BSI"; 
Oo 578 
PRINT AT 21,0; "NOT ALLOWED 
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(SIS 


La7OQ FAUSE Sea 
1@98 GOTO 28? 
11200 DIM GBF#t(6,193 ; 
22348 LET B22) =“218SDESTROYER”™ 
1120 LET BS (2) =“G@SSUDBMARINE" 
eEAY LET &S8(33 =“SLSALIRCRAFT CARR 
1340 LET Sd) ="422TORPEDS BOAT" 
1L1i5@ LET &8$(53 ="“S@FCRUISER" 
1160 LET B8$(6)3 ="GiSBATTLESNIP"™ 
L170 RETURN 

F 3 THEN GOTO 1569 


> po 
Vig 
a 
oo 
IDH 
a 
2 
4i 


2i AY 21,8; “I BEG YDUR P 
RRBDON? “;JAT 21,19; 
12280 GOTO 2000 
1390 PRINT AT 21,0; "25 BEG YOUR P 
RRDON?" 


1328 PAUSE 56 
1320 PRINT AT 19,25; “;AT 21, 
a" “;AT 19, 


15; 
133@ GOTO 20008 
ene PRINT AT 21,6; “TRIED ALREAD 


Lage nae AGS(P,T, St “ THEN PRIN 
UINS LEFT" 

laze “BAU SE 5S 

A475 PRINT AT 21,8@;" 


L459 GOTO 752 


1500 IF AG(P,IT,JJ="" OR AS(P,TI, 
wie". THEN GOTO i456 

ISl@ LET ASt(Pt2e,I, JI SRF te, Tw) 
1615 PRINT AT Jt2. Stee (P-LI+I, AR 


$(P 271) 

s26 0 

iese IF Batu, 4) =AS(P,I,U) THEN G 
oro 1569 

154@ LET V=avei 

1550 GOTG 1550 

1560 PRINT AT 21,6; "HIT A "; Bg CU 
-& TO 19); 


1552 LET AS(P.T,3i =e" 
1563 PRINT AF 27,2@+{K-21}) £27, SER 


} 
1585S IF StkK) =H-2 THEN GOTO 166@ 
1590 GOTO Yas 
PRINT 
41620 PRINT “TOTAL FLEET DESTROYE 


163@ PRINT 
2640 LET VeSt(KI -S(P) 
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‘EEEEEEEEEEE, anaes For vour axa 3HH/EHUIV7h 


1650 PRINT OF (K35;" IS THE WINNER 
“DMG POINTS" 
2660 STOP 
L7@@ IF AGIX, TI eo" “ GR I<2 OR 
Zoe OR J<1 OR J>}1@ THEN GOTO 1 
1710 LET G=0 
172e2@ LET CHI-1 


17508 IF J=1 THEN LET E€ 
L7G6Q@ LET O=I+21 

L77O LET Fedti 

L78Q@ IF I=1@ THEN LET O=-180 

2790 IF J=109 THEN LET F=18 

18600 IF AG(X,.C,E} =" “ THEN GOTS 


1610 IF AGIX,€C,E} ¢+BStiR,4)} THEN 
GOTO 1068 

1820 LET G=i1 

233@ IF C¢O THEN GOTO 1928 

184@ IF E<¢F THEN GOTO 15968 

285SQ@ IF U}+2 AND G=8 THEN GOTO 16 


&@ 
1860 GOTO 236 


1970 LET C=I-1 


5 

15 IF LEN Feel OR LEN FESS THE 
N GOTO 8 
2017 IF CODE Fe(13I<3S5 GR CODE FE 
C1) >47 OR CODE FSt2i«2e9 AR CODE 
FSB) >S7 THEN GOTS 1208 
2920 LET I=CoODE Fel1) -3 
2030 IF LEN Fo=S THEN Soto 2668 
20aa LET GeV Feta} 
2@Q5@ RETURN 
Roem IF FS {SS} ¢>"O" THEN GOTO 128 


2965 LET Jstan Fete TO 3) 
2e7eO GOTO 205s 

2508 GOSUB See 

2510 GOTO Fade 
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GOLF FOR 
TWO 


Jim Archer began this program as a simple golf routine 
for one player, then expanded it for two players, adding 
an enlarged green and a few bunkers. The wind speed 
and direction are taken into account, and a random ele- 
ment of up to plus or minus 15 per cent keeps the playing 
down to human standards. 

The ZX81 decides which of the two players will go first, 
and each player in turn then shoots with a certain 
strength. This is related approximately to the number of 
yards to the hole, keeping in mind that one square equals 
ten yards on the main course, one square equals one 
yard on the green, and at an angle between -180° and 
+180°, The new ball position is calculated, adding the 
wind effect and the random element, and is printed at the 
nearest square as the initial of the player. 

Ifthe player lands on the bunker, he has a three in four 
chance ofclearingit. A random square is selected within 
the sector of the green when landed on, and a satisfying 
view of the ball disappearing down the hole is shown 
when a successful shot is made. At the end of an eight 
hole course the players are graded; this should cause a 
few chuckles and the desire to tackle another strenuous 
round. 


1@ REM GAME OF GOLF FOR TWO 

15 DIM NS§te,3) 

2@ PRINT " ##3GRME OF GOLF F 

2Beee"," FHIS TS AN ELTGHT HOLL 
= CQURSE" 

22 PRINT 

ed PRINT "NAME OF AST PLAYERS 
LETS 7 "; 

26 INPUT NSidi 

28 PRINT i} 





NS i 
SO PRINT “NANE OF BND PLAYERTS 
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INPUT Nee 
PRINT Nt 
PRINT Ne SIND SPEED TODAY? 


INPUT 

PRINT W 

IF W<@ THEN GOTa iea@e 

IF W>G@ THEN eee 1e@25 

LET WisPI-ise 

PRINT “WIND DIRECTION FROM? 


INPUT ES 
PRINT ES 
LET OS8=E3 
LET VUe-: 


GQSUB TiBe 


13@ IF U=s-1 THEN Gosue 1ade 

14@ IF Us-1 THEN GoTo ee 

144 DIM Cte? 

142 OIM O23 

143 DIM Te), 

144 OIM Ita} 

147 DIM WB) 

148 DIM Be} 

15@ LET U=sa18e8 

160 IF U>=86@8 THEN LET U=U-36@ 
17@ RAND 

179 REM COURSE DATA 

18@ GQSUB ize 

185 REM HOLE NO. N 

19@ LET N=@ 

19S REM SHOT NO. c 

Bee LET Cli} =1 

2O1 LET C(B}=2 

B@2 DIM Ete} 

BES LET N=Nei 

aes Per Hi! 

2e = 

M DISTANCE TO HOLE=A 

203 PEM RSUAL Ag (Se(N-1)4+3 TO 5 
# (N-22 +53 

219 REM HOLE DIRECTION DS 

280 CET DS=As (Se (N- 1)41 TO Stn 
= +2 

(290 IF petars" * THEN LET D=Ds% 
239 REM DIRECTION PRINTING 

24@ GOSUB 

258 CLS 

B6Q@ PRINT “HOLE ";N;" FACING "; 
Fg; ": “"JAT @,25;A;" YDS" 
265 GosuB 1878 

Q7Q DIN Gs(2e,S2) 

272 REM FING COURSE ANGLE 

28@ GOSUB 1iae 

264 REM MARE BALL POSITION 


88 








LET POsUs4ereS 

LET I=VAL ES (PO4+1 TO PO+2) 
LET J=VAL Es I(PO+3 TQ PO+4) 
DIM Gs ize 32) 

REM OSE RANDOM PLAYER 
Rey fe TNT (RND #2) +3 

CET GH(T, J) =NBCM, 

PRINT AT Petra 

LET VisVaePr7iae 

LET X=I-INT (A710#COS Vi+.5 


LET Yett+INT (Avl@sSIN V1+.5 


359 REM PRINT GREEN 

360 FOR R=X-1 TO X+4 

33@ FOR s=y-1 TO ¥+ 

36@ IF NOT (R=xX ane S=Y) THEN G 
OSUB 140@ 

39@ NEXT S 

402 NEXT R 

4@2 LET P=3-M 

4@6 LET Iti) =r 

4@?7 LET I(B) =I 

408 CET Jti) sd 

409 T wJWta)s =a 

41@ GosuB 172a@ 

4211. IF CiMloi THEN PRINT AT @,2 
S;"SHOT ";C(M);" " 

442 GOSUB 415 

414 GOTO S1a 

415 PRINT AT 21,@;N§(M2 3” SHOOT 
WITH sheurse AT’ 21,26; 
ag0 PRINT 

dao PRUSE Se 

450 PRINT AT 22,8;,"AT BN ANGLE 
oF? 24,18; 
480 INPUT T 

47@ PRINT T;" DEGREES" 

$8 CET LAL 38,7 cop 

ro > eo atk MoM) 

tee TR Bim) =a THEN éasue 1ase 
$S0 LET K=K+.4% (RND-.5) #K 

s@@ LET TaT+3a% (RND=.5) 

RETU 

a5 REM WIND EFFECT 

S61@ LET @=.8@¢2Ks#U 

Sas IF EtMi=i THEN GoTo sas 

S20 PRINT AT ItM),uemM;" 

S25 LET G#(ItM),GiMii=" * 

Spe IF CtPl=l THEN PRINT AT I,u 
jNSIP,23 

ssa (ET TisTaPriviae she ; 
Sea CET tM) =ItM)—-INT ¢tKecos T 


89 





GAMES FOR YOUR ZX81 








#COS Wi) vie) 

118s LET UCM} =U(MI}4INT CtKSSIN T 
OSS TN Wa) - 22 

S?4 REM Tas IF ON Tar 

SVS IF M=T(P} AND UTM =U TP) 
THEN LET one eo ee 

SYS REM CHECK INSIDE BORDER 

BSa GOSUuUB 1438 

S84 REM SEE iF IN BUNKER 

58S IF Gsilind, th} )} ="B THEN & 
QOSUB 182 


IG) 


SSaQ PRINT AT Ferd , ths ENS CM, 22 
SQS LET GRtitno) , wtih eNSim, 1) 
S@S LET CIM: =C this 

62398 IF ABS iX-TtM3)}<¢2 AND ABS { 
You (Ml) <2 THEN GOQSUB 22288 

G11 IF CiPi:a& THEN GOSUBR if6e 
Sl2 IF HtM)=2 THEN GOTa sea 

615 GoTo 412 

62e CLs 

6SG@ PRINT “HOLE "“jN; ON THE G&G 
REEN: "' 

605 FAST 

S36 GQSuB lore 

637 IF H=1 THEN GoTo 2495 

64@ DIM HS(3,9) 

645 LET H=1i 

65@ FOR R=1 Ta a 

S6@ FOR S=1 Ta 2 

675 LET HStR, 5) =" 

S8e@ IF R= ANP S=5 THEN LET HS ¢ 
R,5)} =" 2 

69@ PRINT AT R+2,5+38;HSCR, 3) 
7O8 NEX 3 

7i@ NEXT R 

742 SLOW 

7435 LET SCTCM) , wth oNSIM, 1) 
Chi PRINT AT Tt +B, UNIO NSO 
? 

F5S5 IF Ht(Pi=1 AND CiP} >@ THEN FP 
RINT AT T(PlseDl ths +Q NSLP, 12 
76@Q IF Ith} =5 AND JM) =5 THEN G 
ata 159@ i i 

&S PRINT AT @,a¢; "SHOT “; CCM) 


778 GOSUB 415 

7F7SBOQ PRINT AT Tih se. tM +a; “He 
FS@Q LET HS tT ihd » gino) ="“Re 

S@08 LET TisTseer-ise 

SBl@ LET TtMi=TtMI-INT (KetC05 Tl 


S2eQ@ LET UtM suk (MI+INT (KSSIN TL 
@3@ EFF His? =HiP> THEN GOSUE 1256 
2 


839 REM CHECK ON GREEN 
S48 GQASUB 1428 
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S45 IF CiP}>2@ AND Tim} =I(P) AND 
SICH) SUP) THEN LET wt(Mi =.tCM) 44 
S59 PRINT AT ICM} +2,U 0M) +9; Ne CM 
‘SéQ IF I(M)=S AND JiMi=S THEN G 
ata 16eaa 
tri iPM 22 eaNAtM, 2? 
Bee ee Ad Til ae, uth) +9/ Ng tM 


sae LET CtM? =C (Mei 

Q@18 IF CiP)=@ THEN GOTO 765 
Saa GQSUB oe 

950 IF HI(M)=1 THEN GOTO F65 
38@ GOTO 19e8@ 

19@@ REM FALSE WING SPEEDS 
181@ PRINT "BE MORE POSITIVE" 


@2a@ GOTO 3a 

tess PRINT “WE CANT PLAY TODAY. 
Teas A'‘," GALE BLOWING" 

1@ 


P 
1a4e@ Retur "X BEG YOUR PARDON?" 


R 
1@@ IF BPS="N" THEN LET WV=8 
1@ IF OS="NE" THEN LET U=45 





Tanna 
een et 
a 

t 

- 

t 

m 

z 

r 

m 

| 

mI 

i 

a 

be 

ui 


LET Ae= "NURS 2Ben 1A*SSE23 
S@SESSEQNEL2@E 275" 

LET ES="2AL5L2RA5LLALELeSai2 
meg ae ee 


aoe IF bes “NN THEN LET Fs="NORT 
1538 IF OS="NE" THEN LET Fsg="NOQR 
132 IF DS="E" THEN LET Fs=“EAST 
1338 IF BPS$="SE" THEN LET Fe="So0uv 
TH-EAST" 

4835 IF Og$="S" THEN LET F¢="SOQUT 
234@ IF Dg="SWU" THEN LET FS="S50U 
TH-WEST" 

aase@ IF Og=e"W" THEN LET Fse="WEST 
4560 IF DS="NU" THEN LET FS=“NOR 
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TH-WEST" 

L37@ RETURN 

140@ LET GStR,5) =" 
1441@ PRINT AT RS; ei 


143@ IF It) <2 THEN LET Tin «3 
1440 IF ZItM)}>Be THEN LET I(m) =8e 
145@ IF JtM) <1 THEN LET JfM)=4 
4460 IF J{M)>34 THEN LET J(M) =31 
147@ RETURN 

1¢48Q IF tM) <2 THEN LET Itmi=i 
149@ IF I(M)}>9 THEN LET ItM)}=92 
15@@ IF U{M) <2 THEN LET JM) =2 
151@ IF U(M)>2 THEN LET U(m)=9 
152@ RETURN 

4590 LET C(mM) =C(M) - 

16@@ PRINT AT 7,14; "2" 

{SAL LET GSt(k.Y} =NSIM, 1) 

1S2a PRINT ATF 23,28; " REEF Ho 
LE IN ";cC Bates 

1625 USE 148 


1635 PRINT AT 7,14;' 

364@ IF CPi .@ THEN ‘Bora e24ae 
166@ IF N<&8 THEN SOTO See 
1665 FOR M=1 TO 2 


CLS 

1675 LET TOoT=T Im) 

168@ PRINT AT 7,18; NS(MIGAT 9,63 
“REREK ERE E" ;AT 14,7; “TOTAL iT 
tM) | AT 12,6; "#8889 e98242"5 AT aé ’ 
4; "GRADE 

1661 IF TOT <=2e THEN PRINT “FR - 
EXCELLENT" 

1682 IF _TOT>2@ AND TAT <=25 THEN 
PRINT "B - GOOb" 

Se IF TOT 225 AND TOT <=3e@ THEN 


z= VERRG 
zee8. IF TOT>38 ane TOT <=35 THEN 


PR "BD = MEDI ane 
1585S IF TOT>?35 AND T<=48 THEN 
PRINT “E - NEEDS TMPROU ING" 


43686 IF ToOT>4@ THEN PRINT "F - 
ISERABLE FRILURE™ 


asec BSi(FO+1 TO PO+2) 
A7a0 CET B=UAL BSIPO+S TO PO+4) 
1720 IF DS="N" OR PS="S" THEN GO 
To 1788 

173@ FOR D= Ase 

174@ LET @${(b,8) ="@ 

17S@ PRINT AT 0,8; "a 


176@ NEXT ©D 
177@ RETURN 








178@ LET G#$if,B To : 
1799 PRINT AT 9,8; “Ses 
1795 RETURN 

18@Q_ PRINT AT 22,8; 





wre 
et 


cL 
PRINT “HOLE "“;N;" FROING “; 


GQSUB 187e@ 

R=X-1 TQ x+1 
FOR S=Y-1 TQ Yt 
PRINT AT R,S; “RR 
NEXT 5 


PRINT AT Zt amd scheme | NGOM, 23 


eT dod ed ed od aT dod odo 
ONOPOOOOG Cwm OOO: Z 
CUMAGEOWES Bgagn-H 
SUNSGSEG~] NNSG-~-—f 

Tl 

im 

a 


2 
PE{M.=-KISINT ¢ 
iUEtM2 -YI FIN ¢ 


=3 
#225 IF Hip) <4 AND ItMi=I(P3} AND 
UYM) sJ31P) THEN LET th) = tM) +2 


Ae 
2410 IF Hit a THEN GOTO i988 


S437 PRINT “HOLE “;N;" :OQN THE G 
REEN 

a4a93| GOSuBa 1678 

2585 FAST 


2 
252@ FOR S=1 Ta 9a 
S=S THEN LET Ht 


2542a “PRINT AT R+2,5+9;HS(R,S) 
255@ NEXT S 
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THE ZX81 
LENDS A 
HAND 











DECISION 
MAKER 


Chris Callender’s Decision Maker is the program for 
anyone who has trouble making up their mind. It may 
well act as a genuine aid in making balanced 
judgements. Here is a sample of how it works. From the 
sample run, you will see how to use the program to solve 
your own problems. This run attempts to aid the decision 
of which pet to buy. 

NUMBER OF OPTIONS? 3 

NUMBER OF IMPORTANT FACTORS? 3 

DECISION MAKER II 

INPUT NAME OF OPTION 1 

PIG 

INPUT NAME OF OPTION 2 

SWAN 

INPUT NAME OF OPTION 3 

HAMSTER 


DECISION MAKER II 

INPUT NAME OF FACTOR 1 
COST 

INPUT NAME OF FACTOR 2 
AFFECTION 

INPUT NAME OF FACTOR 3 
COLOUR 


DECISION MAKER II 
HOW WOULD YOU RATE COST ON THE PIG? 
55 


HOW WOULD YOU RATE COST ON THE 
SWAN? 
100 
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sete 


THANKS...HERE IS WHAT I THINK 
PIG 326 

SWAN 293 

HAMSTER 162 


REM DECISION MAKER IT 
30 REM (C)ICHRIS CALLENDER 1982 


3a GOSUB saad 
4@ PRINT “NUMBER OF OPTIONS?”. 


6a cor O=VAL BS 
7 RINT “NUMBER OF IMPORTANT 
FAGTORS? 
GOsUuB 3000 
30 LET F=VAL BS 
190 DIM O$(0,32) 
119 aoe FSRtr,32) 


LS 
139 GOSUB COne 
148 FOR R= 
145 IF PEEK deaaaca THEN SCROLL 


150 PRINT “INPUT NAME OF OPTION 
1455 IF PEEK 16442¢4 THEN SCROLL 


160 GOSUB 3000 
170 LET OF (A) =BS 
160 Ree A 


ck 
290 GOSUB Se080 
2190 FOR A=1 TO F 
2290 IF PEEK 16442<¢4 THEN SCROLL 


23@ PRINT “INPUT NANE OF FACTOR 
2dG@ IF PEEK 1264¢42<4 THEN SCROLL 


256 GOSsSuUB 3000 
255 LET Pac =6 5 
260 NEXT 

27e CIM MtO, F) 
2y CLs 
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GQASUB aana 

FOR A@=1 TA G 

FOR B=1 TO F 

GOSUB SOG 

PRINT “HQWU WOULD YOU RATE " 


GOSUB 3660 

LET M(G,Bi} =VAL BS 

NEXT B 

NEXT A 

CLS 

GOSUB S008 

PRINT “THANKS...HERE IS WHA 


T I THINK" 


S30 
4 9G 
416 
425 
4&3 
426 
450 
469 
47 
43a 
496 


FOR A=1 TOA GB 

LEY C=@ 

FOR 8=1 TO F 

LET C=C+M(A,B) 

NEXT & 

PRINT O8 (AI;C 

NEXT A 

PRINT “ANOTHER RUN?" 
GOSUB 3000 

CLS 

IF S$="YES" THEN RUN 


PRINT TAB 5S; "OECISION MAKER 
PRINT TAB 9 :)———E=ee 


RETURN 

REM INPUT ROUTINE 

LET sg$=""" 

PBUSE 4E4 

LET AS=INKEYS 

IF AS=CHRS 1168 THEN GOTO 3a 


fF INKEYS=CHR 115 THEN LET 


PRINT AS; 
LEY 84=B3+A5 
GOTG 93026 
PRINT 


PRINT “ON THE “; O08 ¢A? 
RETURN 


BES 


MORSE TEST 








AUDIO MORSE 
TEST 


This program, written by Chris Callender, chooses a 
word and plays it (in Morse code) through your television 
loudspeaker, using machine code to make the noise. The 
first program sets up the machine code in a REM state- 
ment in line 10. Once you have RUN the first program, 
enter LIST and you will see the characters after the REM 
have been changed. If you want to use this routine in your 
own programs, key in the first program, then delete lines 
20 to 50. To make the sound, you use: 


POKE 16523, duration 
LET L USR 16514 


Enter the second program to get the Morse test. By 
changing the 30 in line 390 to the number of words you 
want, you could add more words after line 1350. The 
machine code is stored in line 10. Here isa disassembly: 


LD A,00 
EXX 

CALL 0320 
EXX 

INCA 

CP duration 
JP nz,4084 
RET 


Lines 20 to 380 store the Morse code in array M$, and line 
390 selects a word at random. Lines 510 to 530 play the 
Morse code sounds, and lines 540 to 670 ask you what the 
word was. Finally, here is a message for you to decode: 


99 





10 REM 1235456 739012S3¢ 
20 LET RSs" BESSESCHSSAaSACRSCFES 
oecses440c9g" 
SO FOR R=1 TO 26 ATES 
Ae tay oon 255i4¢INT ies, 
—25) 16+ (cap } 
SO NEXT A E AS (A+) 


RUN 
DELETE LINES 20 5a 
THEN TYPE IN: - 


2S DIM MEISE. 5? 

3G LET MGCLIs"----- 
46 LET Mpts}=".-----” 
S@ LET MSS) ="..---" 
60 LET Ms(d4i s"...--" 
7 LET MS (S83 =2"..2.22-" 
SO LET M$r6ei=s”".....” 
SO LET MS UFy Sve. awe” 
1960 LET M$ tS) ="--...” 
1126 LET M$(G) ="---.." 
120 LET M$ (310) ="----." 
138 LET M$ti23=2".-" 
146 LET ME(22a). s"-...° 
2450 LET MG(isya"-.-." 
160 LET MRC2A2 ="-. 
17Q@ LET MNS(15) ="." 
28O LET MSl267 ="..-." 
190 LET MS(1i7) ="--." 
26S LET MSEC1TSI="....° 
210 LET M$(329) =".." 
229 LET MSlS0) =".---" 
230 LET MG$(S1} ="-.-" 
24G LET M$(SB23=".-.." 
280 LET HE (a3) 2#"--" 
266 LET M$ (Bad) ="-." 
2vrG LET MS(S5) ="---" 
260 LET M$(363 =".--. 
290 LET M$ (SFis"--.-" 
SOO LET MSt(S5)=".-." 
SiG LET MStegi=a"...” 
S2GQ LET M$(S@) ="-" 
SSG@ LET MS(S2I1s"..-" 
S4Q@ LET NE(SEB3 ="°...-" 
SSG LET MSt(S3) =".--" 
S6G LET MS(Sd) ="-..-" 
3? LET M$(SS) ="-.--" 
SSQ LET M$(S6} ="--.." 
SSG LET N=INT (RND#383 


400 GOSUB F404+Ne#20 

410 FOR M=2 TaQ LEN AS 

426 LET C=CoOcE AR(M) -S7 

436 FOR I=1 To S 

44@ IF M$t(C,Tis"." THEN POKE 26 
$23.18 

45@ IF M$t(C,T="-" THEN POKE 15 
323,28 


“ 
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1) 
f 
a 
6) 


OF U1 57 U1 01 Fs fe 
F GOI t= O10 0) J 
QOGOOQagage 


O1OICH 
AO 


58a 


NOY 


S99 


IF MH (Cc, tis" "“ THEN Gara Si 


To 23 


PRINT "WHAT UWUAS THAT WORD?” 
INPUT 63 

IF S53=A% THEN GoTo 6388 
PRINT “Na"“ 

PRINT “WANT TO HEAR IT AGAT 
esi" 

PRINT “TO FIND OUT UHAT IT 


WAS TYPE F" 


boo 
618 
628 
6308 
646 
658 
660 


“S79 
S50 
63aG 


INPUT BS 

CLs 

IF BS="N" THEN GOTO S48 

IF 8$="VY" THEN GOTO 418 

IF BH#="F" THEN PRINT AS 

IF BS="F" THEN STOF 

PRINT “INCORRECT RESPONSE... 


GOTO Séo8 
CLS 
PRINT AT 16,8, “YQqu pPIe IT... 


PAUSE So 
PRINT AT 


PRUSE Sa 

GOTG 63& 

LET AS="S0S" 
RETURN 

LET AS="SINCLAIR” 
RETURN 

LET AGS" SK" 
RETURN 

LET Ag="TCOMPUTER"” 
RETURN 

LET AS=“FRIEND" 
RETURN 

LET Ad=“ENEM’" 
RETURN 

LET AS="“"HELLO" 
RETURN 

LET &A$="BRAIN"” 
RETURN 

LET AS="“ANINAL" 
RETURN 

LET Ag="“RSSSS* 
RETURN 

LET A@S="CHRIS” 
RETURN 
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S60 LET AS="NQRSE" 
S70 RETURN 

350 LET AS="HER" 

$3930 RETURN 
1900 LET AS="HORROR"” 
19816 RETURN 
1030 LET AF=H"MNITCRO” 
163& RETURN 
16940 LET AK="FPRINTER” 
1659 RETURN 
1860 LET AS="RAINBOUW" 
1a RETURN 
408Q LET Gsh="FORTUNE” 
1930 RETURN 
1300 LET AS="ZNOS" 
1116 RETURN 
1432360 LET AS=“CASSETTE" 
2236 RETURN 
23460 LET AS=“1EKRAMN" 
1156 RETURN 
11360 LET AS="GLASS" 
L117 RETURN 
12366 LET Aag="CAR" 
1296 RETURN 
22399 LET AS="HELP” 
232320 RETURN 
2220 LET AX=*FEN* 
14236 RETURN 
223463 LET ASS="KING" 
12350 RETURN 
2260 LET AS="ODVUEEN" 
1270 RETURN 
12569 LET AF="RADIO" 
1290 RETURN 
138060 LET AS="“DCGR" 
13126 RETURN 
1320 LET AS="KEV" 
3SS@ RETURN 

@ LET Re="500e" 
5 RETURN 










yY 
WD TLL Vf 


DOT BOT DASH DASH DOT COT 
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COMPLIMENT 
GENERATOR 


When you are feeling tired and miserable after working 
all night at a program (and it still doesn't work), you can 
cheer yourself up with this 1K program, written by 
Dilwyn Jones, which will generate a complimentary 
phrase every time you press a key. Using this method, 
you can use the program to generate insults (as the next 
program illustrates), buzzwords, or character names for 
your next adventure program. The graphics characters 
in B$ are shift 1, shift 5, shift D and the final character isthe 
function INKEY$. The graphics characters in D$ are shift 
1 and shift E. 

All the words used in this program are held in the two 
strings A$ and C$. The strings B$ and D$ contain pointers 
whose CODE is where each word starts in A$ and C$ 
respectively. A is the variable that determines which 
word is to be extracted from A$, and C is the variable 
which aids in the selection of the word from C$. Line 80 
keeps the display scrolling upwards neatly, so that each 
word appears below the previous one. All the decoding 
and printing is done in line 90 and line 100 keeps the com- 
pliments coming. 


41@ RAND 

Ba LET Ag="NICEUISEBEAUT IFULCL 
EVERCHARM INGUITTYER TENDLYSRILLIG 
NTSMARTLOUELYS aerate 

3@ LET = Sais 

36 CET Bee DE 2 ONSROGRANNERCHR 
RMERGEN TUSUITOPERAT QRSAGE INDIVID 
URLHEROAC 

S@ LET D&="" BD -2SDHRUY" 

6Q@ LET A=INT (RND#1@) +4 

7Q@ LET a INT (RND#1@) +21 

Ba STRa 

Sa PRINT “ag ccODE Bia} TO CODE 

BS t(A¢1)—1); PCS (CODE DS(B) TG 
CODE DO (B42) -213 

1@@ GOTO 68 
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INSULT 
GENERATOR 


This program, also from Dilwyn Jones, is a variation on 
the previous one. Although it uses no swear-words, some 
of the insults are fairly fierce, so don't try it out on your 
best friends. The graphics characters in B$ are shift 1, 
shift T and shift S, while those in D$ are shift 1, shift 5 and 
shift S. 


s RAND 
rer AS="SILLYUGLYFOOLISHSTU 
PIDTIRESOMEBARMYTHICKGORMLESSDOS 


EY SENSELES 

3@ LET Bs="F 2) sSaDLez" 

4@ LET Ch="FOOQL IDTOTMANIACTWIT 
IMBEC ILEBLOCKHEADNORONDOLTCOWARD 
LUNATIC" 

5a eos hk teal Sd =@SE IOV" 

6e@ =INT (RND#1@) +1 

72 CET B= INT (RND#1@) +1 


8@ SCROLL 

9@ PRINT AS (CODE BSA) TO CODE 
Seen ee a «OR teO0E DS(B) TO 
soa DS(B+1) -1 

10@ GOTO 66 


\ 


(Hel tel 
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This program, by Nick Wilson, will generate four dif- 
ferent sizes of magic squares, using the de la Loubere 
method. A ‘magic square’ is a square of numbers where 
all the rows, columns and leading diagonals individually 
total the same number. When you run the program you 
will be asked to enter an integer between one and nine. 
Only odd numbers are accepted, and your input is 
checked ‘for oddness'’ inline 130. Next the screen clears, 
a magic square is constructed, then COPYed to the 


printer. 


1@ REN MAGIC SGUARES 

2@ REM USING THE DE £A LOUBERE 
2 REM METHOD. 

3@ REHM GEHERATES FROW + To Gg 
4@ REH SQUARE SIZES 

5@ REM 

6@ REM BY: NICK UWUILSGN 

7e@ REM 

S3e@ REM 


1@G BDPIH HMi4?7,47) 

41108 PRINT AY 16,6; "NUMBER OF CG 
LUMNS -ROWS" 

1208 INPUT N 

25 CLs 


413@ IF Nvr2=INT (N-2} THEM GOFG 
1108 

131 PRINT AT 6,6," HAGIC NUR 
BER’; ATF 2,8;N;" ROWS -TOLUHNS."™ 

i468 REM 


158 LET C1i=8 

46@ LET C=INT (N-r2i¢+i 

i7@ LEF R=i 

48@ LEF Ci=ti+t 

49@ LET M(tR,C}=C1 a 
49% PRINT AF R#242,025;02 
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coo WRITING PRoGRAMsS 1th 


How To Write 
Better 


Programs 


By Tim Hartnell, series editor 


There are a number of fine programs in this book, and 
many of the regular computer magazines contain other 
such ones. But no matter how good the programs from 
published sources are, you are certain to get more 
pleasure from running them ifthey have been partially or 
completely written by you. Putting your personal stamp 
on programs, altering them to reflect your wishes and 
creativity, is an excellent way to improve the programs, 
and eventually, of course, you'll become a better and 
more imaginative programmer. 

Programs in magazines, and in books like this one, are 
ideal as starting points for your own developments. You 
may also find that advertisements for software packages 
can be fruitful ‘idea-starters’. You only need to read the 
description of what the commercially available program 
does, and you will have the first step towards creating 
your own program. You have to be careful, of course, not 
to infringe copyright either in the screen displays, in the 
name of the program, or the names of the ‘characters’ 
within the program. However, you will probably find that 
ata certain point in its development the program willtake 
on a life of its own, growing and evolving away from the 
original scenario, until you eventually havea completely 
new game concept and implementation. 

Whatever you do, be careful not to pass off other 
people's work as your own. By all means adapt and im- 


107 








prove published programs, but do not then present them 
to magazines as if they were originals. I have lost count of 
the number oftimes one of my own programs, from one of 
my books, has been submitted to me for publication. 

Always watch out for new ideas as you look through 
books, game and computer magazines, or wander 
through video game arcades. It may be worth keeping 
notes of ideas you come across for games, for character 
shapes, for sounds, for dramatic endings and so on. Thus 
you will never be short of ideas, and you will also be able 
to merge the material together to produce better games 
which hold the player’s attention for longer. 

Games tend to fall into one of three categories, and itis 
worth making sure of the category into which your pro- 
posed program will fall before you start to program, 
since the category of game materially alters the pro- 
gramming approach. This is not to say that, as you 
develop a program, it will not move from one category in- 
to another, nor that a particular game might not extend 
across two categories, but it is nevertheless useful to 
keep the various groups separate in your mind, just to 
clarify your thoughts. The three categories are: 

1. Board games 

2. ‘Arcade’ (that is, highly visual, fast moving, noisy, 

real time) games 

3. Games of chance (such as Roulette and Snap). 

In board games, the quality of play is more important 
than lightning-fast response, while the arcade-type pro- 
grams must be kept moving at all costs, even if some 
‘intelligence’ from your Martian intruders must be 
sacrificed to achieve this. Games of chance depend 
more on their ease of play (‘user-friendly’ inputs), and an 
approach to true randomness, than do either of the other 
categories. 

You will find that games programs tend to fall into 
types, which are subdivisions of the three above men- 
tioned categories. Many board games are variants of 
chess or checkers; many arcade games started offlife as 
Space Invader-type games; and games of chance 
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started offin the ‘real world’ of dice and cards. Lookingat 
a program description, or a games machine, and trying 
to categorise the game you see can help trigger new 
ideas which fit within that particular game’s genre. 

There is a school of thought within programming — 
generally called ‘structured programming’ — which 
believes that discipline at the beginning of the games- 
writing process is essential. While less interesting than 
sitting down at the computer right away, a much better 
program is produced in the end. I once wrote a program 
called Dome Dweller, a simulation program in which the 
player is in charge of a ‘lunar dome’ and must decide 
which products to manufacture and sell in order to buy 
oxygen and food for the station's inhabitants. (This pro- 
gram was used in my book The Book of Listings, written 
with Jeremy Ruston, and published by the BBC.) Once I 
had decided the overall scenario, I worked out the 
screen display, and came up with an idea as follows: 

Oxygen supplies are low 

There are 96 people living within your dome in 
year 3 

Money credit is $5,693 

Annual maintenance charge is $226 

Oxygen tanks hold 811 units 

Oxygen costs $8 per unit 

Each dome dweller needs 5 units a year 

Food stocks stand at 2122 

Each dweller needs 3 units a year ($6 each, $576 
for dome. This will last 7 years at present popula- 
tion.) 

You can trade your unique lunar sculptures with 
the people who live in other domes. You use up 2 
units of oxygen making each one, and sell them 
for $30. 

As youcan probably guess from this ‘sample printout’, 
the idea of the program is to decide how many ‘unique 
lunar sculptures’ you must make and sell in order to buy 
oxygen and food, and to pay the ‘annual maintenance’ 
charge. The problem with this particular program is that 
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making each sculpture uses up oxygen, so you must 
balance your wish to make money against the need to use 
the oxygen intelligently. 

You may well wish to try writing such a program 
yourself. You should end up with an enjoyable program, 
and writing it will do much to help you develop your pro- 
gramming skills. The first thing to do is to make a list of 
what the program has to do: 

Set up the needed variables 

Tell the player the ‘state of the dome’ 

Ask how much oxygen to be bought 

Check if can afford this, if so buy it, ifnot go back 
and ask again 

Ask how much food to be bought 

Check if can afford this, ifso buy it, ifnot go back 
and ask again 

Update oxygen quantity 

Update food quantity 

Reduce money left total 

Ask how many items of sculpture to be made 
Check if there is enough oxygen to make this 
many, if not go back and ask again 

Reduce oxygen quantity by amount needed to 
make the number of sculptures specified, in- 
crease money total to reflect value of sculptures 
made 

Increase the population total slightly, add one to 
the ‘current year’ 

Check if there is enough food in stocks to feed 
whole population 

Check if there is enough oxygen for whole 
population 

Check if there is any money 

If any of these conditions are negative (eg not 
enough food) send action to an ‘end of game’ 
routine 

If all are positive, loop back to tell the player the 
state of the dome, and continue to circle 

You could probably write a Dome Dweller program 
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using the list above, together with the ‘sample printout’ 
information. There is, however, a secret I should like to 
share with you which unlocks programming problems 
almost instantly. You can actually write all the vital parts 
of a program in minutes, so you can see the raw 
framework ofa program like thisrunning long before you 
fill in the details. And once you have a framework you 
can work onit for aslongas youlike, knowing as you doso 
that — at every moment in program development — you 
have a working program. You donot have to wait until the 
end until you can run it to see how you are going. The 
‘secret' is to hold the entire program within a series of 
subroutine calls, all held within a perpetual loop. Here’s 
how it could work with this program. The very first lines 
you enter in your computer are as follows: 

10 REM DOME DWELLER 

20 GOSUB 1000: REM ASSIGN VARIABLES 

30 GOSUB 2000: REM PRINT OUT STATE OF 

DOME 

40 GOSUB 3000: REM OXYGEN 

50 GOSUB 4000: REM FOOD 

60 GOSUB 5000: REM SCULPTURE 

70 GOSUB 6000: REM UPDATE POPULATION 

80 GOSUB 7000: REM CHECK ON STATE OF 

DOME 

90 IF (all conditions positive, from GOSUB 7000) 

THEN GOTO 30 

100 REM End of game ... 

As you can see once you have the ‘master loop’ set up 
in this way, it is relatively simple to fill in each of the 
subroutines one by one, testing each as you do so, and 
elaborating each one sothat you end up eventually witha 
very good program. The only thing you need now isa list 
of the variables which you will use with the program. 

I find the best way to do this is to use explicit names for 
variables so that when you are programming you do not 
have to spend time checking, for example, whether AA 
stands for the population, or the number of units of ox- 
ygen used up in making each item of sculpture. To make 
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programs as easy as possible to transfer between dif- 
ferent computers you can stick to two letter variable 
names, or you can take advantage (if your computer 
allows it) of long names (such as OXYUSE for the amount 
of oxygen used) for variables. Then you have no doubts 
whatsoever as to the meaning of each variable name. To 
show how this can work, and to illustrate a further advan- 
tage of explicit variable names, here are the variables 
used in Dome Dweller: 


FOLK — population of dome 

CASH — money in treasury 

FOOD — food stocks on hand 

FOODCOST — how much each unit of food costs 
FOODNEED — how many units of food were con- 
sumed per person per year 

ARTCOST — how much oxygen was used up 
making each piece of sculpture 

ARTPAY — how many dollars each piece of 
sculpture was sold for 

OXY — oxygen stocks on hand 

OXYNEED — how many units of oxygen were 
consumed per person per year 

OXYCOST — how much each unit of oxygen cost 
to buy 

REPAIR — the cost of annual repairs to the dome 
YEAR — the year of the dome's life 


Using explicit variable names in this way — although 
they use up more memory than do single or double-letter 
variable names — makes it very simple to follow through 
a program, working out what eachsection ofthe program 
actually does. Moreover, and this is the further advan- 
tage mentioned, itis very easy when writing the program 
to insert the formulae required for calculations. By this 1 
mean that if, forexample, you wished to include(asI doin 
this program) an indication of how much oxygen is need- 
ed for each year, you simply multiply the number of peo- 
ple in the dome (FOLK) by the number of oxygen units 
each person needs each year (OXYNEED). Youcan then 
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include within the printouts for the state ofthe domea line 
like: 


PRINT ''THERE ARE ’’;FOLK;'' IN THE DOME” 
PRINT "IN YEAR "’; YEAR 
PRINT ‘EACH PERSON NEEDS "';OXYNEED;"' 
UNITS OF” 
PRINT ‘OXYGEN EACH YEAR,”’; 
OXYNEED*FOLK;'' NEEDED” 
PRINT ‘FOR THE WHOLE DOME” 
It also makes it very easy to check on whether purchases 
are possible. For example, to buy food, you could say: 
PRINT ‘HOW MUCH FOOD WILL YOU BUY?” 
INPUTA 
IF A*FOODCOST > CASH THEN GOTO (get 
another A) 

So the suggestions given here for improving your pro- 
grams by the use of ‘structured programming’ include 
the following: 

- draw up a sample printout, or mock-up of the 
final screen display 

- draw up alist of what the program hasto do each 
time through a ‘master control loop’ 

- change this list to a series of subroutine calls 

- use explicit variable names if possible 

It is useful if you are designing programs for others to 
use to ensure that it is quite clear what the player should 
do when running the program. There is little point, 
especially when memory is limited, in including a long 
set of instructions within the program, but you should cer- 
tainly write such instructions down. In addition, user pro- 
mpts should be explicit (such as ENTER THE NUMBER 
OF GOES YOU WANT) and should include warnings of 
the limits which will be placed on the input (HOW MANY 
CARDS WILL YOU START WITH: 1, 2 OR 3 ?, for in- 
stance), 

You cannot assume that you will be present every time 
a program is run, so you should do your best to make it as 
foolproof as possible. If you can, add error-trapping 
routines to the program to ensure that a mistake in enter- 
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ing a choice earlier on in the program will not cause it to 
crash or come up with stupid results later on. 

If you read through this section of the book several 
times and try to apply the ideas to your own programm- 
ing work, you should find your work quality improves 
significantly, and also that you can spend more time im- 
proving and embellishing a program and less in the raw 
mechanical task of getting the thing running. 
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GLOSSARY 








A 


Accumulator — the place within the computer in which arith- 
metic computations are performed and where the results of 
these computations are stored. 

Algorithm — the series of steps the computer follows to solve 
a particular problem. 

Alphanumeric — this term is usually used in relation to a key- 
board, as in ‘it is an alphanumeric keyboard’, which means 
that the keyboard has letters as well as numbers. It is also 
used to refer to the ‘character set’ of the computer. The 
character set comprises the numbers and letters the 
computer can print on the screen. 

ALU (Arithmetic/Logic Unit) — the part of the computer 
which does arithmetic (such as addition, subtraction) and 
where decisions are made. 

AND — a Boolean logic operation that the computer uses in 
its decision-making process. It is based on Boolean algebra, 
a system developed by mathematician George Boole 
(1815-64). In Boolean algebra the variables of an expression 
represent a logical operation such as OR and NOR. 


ASCII — stands for American Standard Code for Information 
Exchange, the most widely used encoding system for 
English language alphanumerics. There are 128 upper and 
lower case letters, digits and some special characters. ASCII 
converts the symbols and control instructions into seven-bit 
binary combinations. 

Assembler — a program which converts other programs 
written in assembly language into machine code (which the 
computer can understand directly). Assembly language isa 
low level programming. language which uses easily 
memorised combinations of two or three letters to represent 
a particular instruction which the assembler then converts so 
the machine can understand it. Examples of these are ADD 
(add), and SUB (subtract). A computer programmed in 
assembly language tends to work more quickly than one 
programmed in a higher level language such as BASIC. 
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BASIC — an acronym for Beginners All-Purpose Symbolic Ins- 
truction Code. It is the most widely used computer language 
inthe microcomputer field. Althoughit has been criticised by 
many people, it has the virtue of being very easy to learn. A 
great number of BASIC statements resemble ordinary 
English. 

Baud — named after Baudot, a pioneer of telegraphic 
communications. Baud measures the rate of transfer of 
information and is approximately equal to one bit per 
second. 

BCD — an abbreviation for Binary Coded Decimal. 

Benchmark — a test against which certain functions of the 
computer can be measured. There are anumber ofso-called 
‘standard Benchmark tests’, but generally these only test 
speed. This is rarely the aspect of a microcomputer that is 
most of interest to the potential buyer. 

Binary — a numbering system that uses only zeros and ones. 

Bit — an abbreviation for Binary Digit. This is the smallest unit of 
information a computer circuit can recognise. 

Boolean Algebra — the system of algebra developed by 
mathematician George Boole which uses algebraic notation 
to express logical relationships (see AND). 

Bootstrap — a short program or routine which is read into the 
computer when it is first turned on. It orients the computer to 
accept the longer, following program. 

Bug — an error in a computer program which stops the pro- 
gram from running properly. Although it is generally used to 
mean only a fault or an error in a program, the term bug can 
also be used for a fault in the computer hardware. 

Bus — a number of conductors used for transmitting sig- 
nals such as data instructions, or power in and out of a 
computer. 

Byte — a group of binary digits which make up a computer 
word. Eight is the most usual number of bits in a byte. 


C 


CAI — Computer Assisted Instruction. 


CAL — Computer Assisted Learning. The term is generally 
used to describe programs which involve the learner with 
the learning process. 
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Chip — the general term for the entire circuit which is etched 
ontoasmall piece ofsilicon. The chipis, ofcourse, atthe heart 
of the microcomputer. 

Clock — the timing device within the computer that synch- 
ronises its operations. 

COBOL — a high level language derived from the words Com- 
mon Business Orientated Language. COBOL is designed 
primarily for filing and record-keeping. 

Comparator — a device which compares two things and 
produces a signal related to the difference between the two. 

Compiler — a computer program that converts high level 
programming language into binary machine code so the 
computer can handle it. 

Complement — a number which is derived from another 
according to specified rules. 

Computer — a device with three main abilities or functions: 
1) to accept data 
2) to solve problems 
3) to supply results 


CPU — stands for Central Processing Unit. This is the heart of 
the computer's intelligence, where data is handled and 
instructions are carried out. 

Cursor — a character which appears on the TV screen when 
the computer is operating. It shows where the next character 
will be printed. On a computer there are usually ‘cursor 
control keys’ to allow the user to move the cursor around the 


screen. 
Data — information in a form which the computer can 
process. 


Debug — the general term for going through a program and 
correcting any errors in it, that is, chasing down and 
removing bugs (see Bug). 

Digital Computer —a computer which operates on inform- 
ation which is in a discrete form. 

Disk/Disc — this is a magnetically sensitised plastic disk, a 
little smaller than asingle play record. Thisis used for storing 
programs and for obtaining data. Disks are considerably 
faster to load than a cassette ofthe same length program. The 
disk can be searched very quickly while a program is 
running for additional data. 


117 














Display — the visual output of the computer, generally on a 
TV or monitor screen. 

Dot Matrix Printer — a printer which prints either the listing 
of a program or that which is displayed on the TV screen. 
Each letter and character ismade up ofanumber of dots. The 
higher the number of dots per character the finer the 
resolution of the printer. 

Dynamic Memory — a memory unit within the computer 
which ‘forgets’ its contents when the power is turned off. 


E 


Editor — this term is generally used for the routine within the 
computer which allows you to change lines of a program 
while you are writing it. 

EPROM — stands for Erasable Programmable Read-Only 
Memory. Thisislikethe ROM inthe computer, except thatitis 
fairly easy to load material into an EPROM and it doesn't 
disappear when you turn the power off. EPROMs must be 
placed in a strong ultra violet light to erase them. 

Error Messages — the information given by a computer 
where there isa fault in the coding during apart ofaprogram, 
usually shown by the computer stopping, and printing a 
word, or a word and numbers, or a combination of numbers 
only, at the bottom of the screen. This tells you what mistake 
has been made. Common mistakes include using the letter O 
instead of zero in a line, or leaving out a pair of brackets, or 
one of the brackets, in an expression, or failing to define a 


variable. 


File — a collection of related items of information organised 
in a systematic way. 

Floppy Disk — a relatively cheap form of magnetic disk used 
for storing computer information, and so named because it is 
quite flexible (see Disk/Disc). 

Flow Chart — a diagram drawn up before writing a program, 
in which the main operations are enclosed within rectangles 
or other shapes and connected by lines, with arrows to 
represent loops, and decisions written at the branches. It 
makes writing a program much easier because traps such as 
infinite loops, or non-defined variables can be caught at an 
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early stage. It may not be worth writing a flow chart for very 
short programs, but generally a flow chart aids in creating 
programs. 

Firmware — there are three kinds of ‘ware’ in computers: 
software ‘temporary’ programs; hardware like the ROM 
which contains permanent information; and firmware in 
which the information is relatively permanent, as in an 
EPROM (see EPROM). 

Flip-Flop — a circuit which maintains one electrical con- 
dition until changed to the opposite condition by an input 
signal. 

FORTRAN — an acronym for FORmula TRANslation, this is a 
high level, problem orientated computer language for 
scientific and mathematical use. 


G 


Gate — an electrical circuit which, although it may accept 
one or more incoming signals, only sends outa single signal. 


Graphics — pictorial information as opposed to letters and 


numbers. 


Hard Copy — computer output which is in permanent form. 

Hardware — the physical parts of the computer (also see 
software and firmware). 

Hexadecimal (Hex) — a numbering system to the base six- 
teen. The digits zero to nine are used, as wellasthe letters A, 
B, C, D, EandF to represent numbers. A equals 10, B equals 
11, C equals 12, and so on. Hex is often used by 
microprocessor users. 

Hex Pad — a keyboard designed specifically for entering 
hexadecimal notation. 

High Level Language — a programming language which 
allows the user to talk to the computer more or lessin English. 
In general, the higher the level of the language (that is, the 
closer it is to English), the longer it takes for the computer to 
translate it into a language it can use. Lower level languages 
are far more difficult for human operators but are generally 
executed far more quickly. 
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Input — the information fed into the computer via a key- 
board, a microphone, a cassette or a disk. 

Input/Output (I/O Device) — a device which accepts inform- 
ation or instructions from the outside world, relays it to the 
computer, and then, after processing, sends the information 
out in a form suitable for storing, or in a form which could be 
understood by a human being. 

Instruction — data which directs a single step in the pro- 
cessing of information by the computer (also known as a 
command). 

Integrated Circuit — a complete electronic circuit imprinted 
on a semiconductor surface. 

Interface — the boundary between the computer and a peri- 
pheral such as a printer. 

Interpreter — a program which translates the high level lan- 
guage fed in by the human operator, into a language which 
the machine can understand. 

Inverter — a logic gate that changes the signal being fed in, 
to the opposite one. 

Interactive Routine — part of a program which is repeated 
over and over again until a specified condition is reached. 


J 


Jump Instruction — an instruction which tells the computer 
to go to another part of the program, when the destination of 
this move depends on the result of a calculation just 
performed. 


K 


K — this relates to the size of the memory. Memory is 
usually measured in 4K blocks. 1K contains 1,024 bytes. 
Keyword — the trigger word in a line of programming, 
usually the first word after the line number. Keywords 

include STOP, PRINT and GOTO. 
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L 


Language — computer languages are divided into three sec- 
tions: high level languages, such as BASIC, which are 
reasonably close to English and fairly easy for humanstouse; 
low level languages, such as Assembler, that use short 
phrases which have some connection with English (ADD for 
add and RET for return, for instance); and machine code 
which communicates more or less directly with the machine. 

LCD — this stands for Liquid Crystal Diode. Some computers 
such as the TRS-80 Pocket Computer use an LCD display. 

LED — this stands for Light Emitting Diode. The bright red 
numbers which are often used on watch or clock displays are 
made up of LEDs. 

Logic — the mathematical form of a study of relationships 
between events. 

Loop — a sequence of instructions within a program which is 
performed over and over again until a particular condition is 


satisfied. 


Machine Language or Machine Code — an operation code 
which can be understood and acted upon directly by the 
computer. 

Magnetic Disk — see Disk and Floppy Disk. 

Mainframe — computers are generally divided into three 
groups, and the group a computer falls into depends more or 
less on its size. The computer you are thinking of buying isa 
microcomputer; medium sized computers are known as 
minicomputers; and the giant computers that you sometimes 
see in science fiction movies are mainframe computers. Until 
15 years ago mainframe computers were, in practical terms, 
the only ones available. 

Memory — there are two types of memory within a computer. 
The first is called ROM (read-only memory); this is the 
memory that comes already programmed on the computer, 
which tells the computer how to make decisions and how to 
carry out arithmetic operations. This memory is unaffected 
when you turn the computer off. The second type is RAM 
(random access memory). This memory holds the program 
youtype in at the keyboard or send in viaa cassette or disk. In 
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most computers the computer ‘forgets’ what isin RAM when 
you turn the power off. 

Microprocessor — the heart of any computer. It requires 
peripheral unit interfaces, such as a power supply and input 
and output devices, to act as a microcomputer. 

MODEM — stands for Modulator Demodulator. This is a 
device which allows two computers to talk to each other over 
the telephone. The computers usually use acradlein whicha 
telephone receiver is placed. 

Monitor — this has two meanings in computer terms. One 
meaning isa television-like display. A monitor has no facility 
for tuning television programs, and usually the picture 
produced on a monitor is superior to that produced by an 
ordinary television. The second meaning ofa monitor relates 
to ROM. The monitor of a computer is described as the 
information it has built in when you buy it. This information 
allows it to make decisions and carry out arithmetic 
computations. 

Motherboard — a framework to which extra circuits can be 
added. These extra circuits often give the computer facilities 
which are not built-in, such as that of producing sound or of 
controlling a light pen. 

MPU — an abbreviation for Microprocessor Unit. 


N 


Nano-second — a nano-second is one thousand billionth of a 
second, the unit of speed in which a computer or a memory 
chip is often rated. 

Non-Volatile Memory — memory which is not lost when the 
computer is turned off. Some of the smaller computers such 
as the TRS-80 Pocket Computer have non-volatile memory. 
The batteries hold the program you enter for several 
hundred hours. 

Not — a Boolean logic operation that changes a binary digit 
into its opposite. 

Null String — a string which contains no characters. It is 
shown in the program as two double quote marks, without 
anything between them. 

Numeric — pertaining to numbers as opposed to letters 
(that is, alphabetic). Many keyboards are described as 
being alphanumeric which means both numbers and letters 
are provided. 
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O 


Octal — a numbering system which uses eight as the 
base, and the digits 0, 1, 2,3, 4,5, 6and 7. The Octal system is 
not used very much nowadays in microcomputer fields. The 
Hexadecimal system is more common (see Hexadecimal). 

Operating System — the software or firmware generally 
provided with the machine that allows you to run other 
programs. 

OR — an arithmetic operation that returns a 1, if one or 
more inputs are 1. 

Oracle — a method of sending text messages with a 
broadcast television signal. A teletext set is required to 
decode the messages. Oracle is run by Independent 
Television Service in the UK, and a similar service — Ceefax 
— is provided by the BBC. 

Output — information or data fed out by the computer to 
such devices asa TV-like screen, a printer or a cassette tape. 
The output usually consists of the information which the 
computer has produced as a result of running a program. 

Overflow — a number too large or too small for the 
computer to handle. 


Pad — see Keypad. 

Page — often used to refer to the amount of information 
needed to fill one TV screen, so you can talk about seeing a 
page of a program, the amount of the listing that will appear 
on the screen at one time. 

PASCAL — a high level language. 

Peripheral — anything which is hooked onto a computer, 
for control by the computer, such asa disk unit, aprinter ora 
voice synthesiser. 

Port — a socket through which information can be fed out 
of or in to a computer. 

Prestel — the British telecom name for a system of calling 
up pages of information from a central computer via the 
telephone and displaying them on a television screen. A 
similar commercial version in the United States is known as 
The Source. 
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Program — in computer terms program has two 
meanings. One is the list of instructions that you feed into a 
computer, and the second is used asa verb, asin ‘toprogram 
a computer’. 

PROM — stands for Programmable Read Only Memory. 
This is a device which can be programmed, and once it is 
then the program is permanent (also see EPROM and ROM). 


R 


Random Access Memory (RAM) — the memory within a 
computer which can be changed at will by the person using 
the computer. The contents of RAM are usually lost when a 
computer isturned off. RAM isthe memory device that stores 
the program that you type in and also stores the results of 
calculations in progress. 

Read-Only Memory (ROM) — in contrast to RAM, inform- 
ation in ROM cannot be changed by the user ofthe computer, 
and the information is not lost when the computer is turned 
off. The data in ROM is put there by the manufacturers and 
tells the computer how to make decisions and how to carry 
out arithmetic computations. The size of ROM and RAM is 
given in the unit K (see K). 

Recursion — the continuous repetition of a part of the 
program. 

Register — a specific place in the memory where one or 
more computer words are stored during operations. 

Reserved Word — a word that you cannot use for a 
variable in a program because the computer will read it as 
something else. Anexample isthe word TO. Because TO has 
aspecific computer meaning, most computers will rejectit as 
a name for a variable. The same goes for words like FOR, 
GOTO and STOP. 

Routine — this word can be used as a synonym for 
program, or can refer to a specific section within a program 
(also see Subroutine). 


Second Generation — this has two meanings. The first applies 
to computers using transistors, as opposed to first generation 
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computers which used valves. Second generation can also 
mean the second copy ofa particular program; subsequent 
generations are degraded by more and more noise. 

Semiconductor — a material that is usually an electrical insu- 
lator but under specific conditions can become a conductor. 

Serial — information which is stored or sent in a sequence, 
one bit at a time. 

Signal — an electrical pulse which is a conveyor of data. 

Silicon Valley — the popular name given to an area in Cali- 
fornia where many semiconductor manufacturers are 
located. 

SNOBOL — a high level language. 

Software — the program which is entered into the computer 
by a user which tells the computer what to do. 

Software Compatible — this refers to two different computers 
which can accept programs written for the other. 

Static Memory — a non-volatile memory device which 
retains information so long as the power is turned on, but 
does not require additional boosts of power to keep the 
memory in place. 

Subroutine — part of a program which is often accessed 
many times during the execution of the main program. A 
subroutine ends with an instruction to go back tothe line after 
the one which sent it to the subroutine. 


T 


Teletext — information transmitted in the top section of a 
broadcast television picture. It requires a special set to 
decode it to fill the screen with text information. The BBC 
service is known as Ceefax, the ITV service as Oracle. 
Teletext messages can also be transmitted by cable, for 
example the Prestel service in Britain or The Source in the 
United States. 

Teletype — a device like a typewriter which can send inform- 
ation and also receive and print it. 

Terminal — a unit independent of the central processing 
unit. It generally consists of a keyboard and a cathode ray 
display. 

Time Sharing — a process by which a number of users 
may have access toa large computer which switches rapidly 
from one user to another in sequence, so each user is under 
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the impression that he or she is the sole user of the computer 
at that time. 


Truth Table — a mathematical table which lists all the pos- 
sible results of a Boolean logic operation, showing the results 
you get from various combinations of inputs. 


U 


UHF — Ultra High Frequency (300-3000 megaHertz). 


Ultra Violet Erasing — Ultra violet light must be used to erase 
EPROMs (see EPROM). 


V 


Variable — a letter or combination of letters and symbols 
which the computer can assign toa value ora word during the 
run of a program. 

VDU — an abbreviation for Visual Display Unit. 


Volatile — refers to memory which ‘forgets’ its contents 
when the power is turned off. 


Ww 


Word — a group of' characters, or a series of binary digits, 
which represent a unit of information and occupy a single 
storage location. The computer processes a word asa single 
instruction. 

Word-Processor — a highly intelligent typewriter which’ 
allows the typist to manipulate text, to move it around, to 
justify margins and to shift whole paragraphs if necessary on 
a screen before outputting the information onto a printer. 
Word-processors usually have memories, so that standard 
letters and the text of letters, written earlier, can be stored. 
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__ THE 
PERSONAL 
COMPUTER 

GUIDE 


The Complete Handbook to Selecting and 
Using Small Computers 

A unique introduction to the exciting world of personal 

computers, including: 

* An explanation of how they work and what they can 
do for you 

x A detailed analysis of the available systems including 
the BBC, Commodore and Sinclair models, examining 
specifications, commands, 
software and other vital 
information 

* How to get the most out 
of your computer 

x A step-by-step guide to 
programming 

* A complete set of over 40 
programs 

Packed with ideas and fully 

illustrated with photographs, , 

line drawings and information 

panels. ONLY £5.95 a" 

Available from all -< 
good bookshops 

A large format quality 

paperback 
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_ |. More than25 challenging programs, 

each one especially written for the series 

and guaranteed to provide hours | 
of entertainment. 








Moving graphics games, brain stretchers, word 
games and puzzles are all here. The games 
include TRAP (you're the fugitive, the computer 
is your pursuer); TANK ASSAULT (a 
ae moving game in which you manoeuver . 
__ through a minefield); STAR TRADER (become 
a galactic entrepreneur); POKER (how to losea 
_ fartune painlessly); CAVERNS (atest of mental 
arithmetic); GOLF (win the Open without 
ae H moving from your sitting-room); and 
POLOMONY (build an empire in an evening). 


GAMES FOR YOUR ZX81 will improve your 
programming skills as you follow the 
instructions to put each of the programs into 
yourmachine, and’comes complete with a brief 

dictionary of computer terms and some 
’ hintson how toimprove and extend the 
programs in the book. 
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